Let us set some global options for all code chunks in this document.

knitr::opts_chunk$set(
  message = FALSE,    # Disable messages printed by R code chunks
  warning = FALSE,    # Disable warnings printed by R code chunks
  echo = TRUE,        # Show R code within code chunks in output
  include = TRUE,     # Include both R code and its results in output
  eval = TRUE,       # Evaluate R code chunks
  cache = FALSE,       # Enable caching of R code chunks for faster rendering
  fig.align = "center",
  out.width = "100%",
  retina = 2,
  error = TRUE,
  collapse = TRUE
)
rm(list = ls())
set.seed(1982)

1 Preprocessing

Let us now load some required libraries.

# Load required libraries

# inla.upgrade(testing = TRUE)
# remotes::install_github("inlabru-org/inlabru", ref = "devel")
# remotes::install_github("davidbolin/rspde", ref = "devel")
# remotes::install_github("davidbolin/metricgraph", ref = "devel")

library(INLA)
inla.setOption(num.threads = 7)
library(inlabru)
library(rSPDE)
library(MetricGraph)

library(plotly)
library(dplyr)

library(sf)

library(here)

Function standarize() below is later used to standardize the covariate SpeedLimit.

standardize <- function(x) {return((x - mean(x)) / sd(x))}

To keep track of the changes, we provide summaries of every new created object. Those summaries can be accessed by pressing the Show buttons below


We load the graph object sf_graph (which only contains weights) and the data (already graph-processed).

load(here("Graph_objects/graph_construction_25_04_2024partialtomtomwhichlonglatsf.RData"))
load(here("Data_files/data_day7142128_hour13_with_no_consecutive_zeros_partialtomtom_graph_25_04_2024_processed.RData"))
data_on_graph = data_on_graph %>% 
  dplyr::select(-datetime)
sf_graph$get_edge_lengths() %>% head() %>% capture.output() %>% grep("^Units:", ., value = TRUE)
## [1] "Units: [km]"
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 4017 
##   Degree 2: 1821;  Degree 3: 180;  Degree 4: 1402;  Degree 5: 94;  Degree 6: 367; 
##   Degree 7: 36;  Degree 8: 116;  Degree 12: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 6827 
##   Lengths: 
##       Min: 0.002834658  ; Max: 0.2743201  ; Total: 311.1441 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: TRUE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: The graph has no data!
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0
summary(data_on_graph)
##        ID           speed             day        .distance_to_graph
##  Min.   :5701   Min.   : 0.000   Min.   :1.000   Min.   :0.000000  
##  1st Qu.:6571   1st Qu.: 1.609   1st Qu.:2.000   1st Qu.:0.001655  
##  Median :6687   Median :14.484   Median :3.000   Median :0.003552  
##  Mean   :7106   Mean   :15.142   Mean   :2.556   Mean   :0.004469  
##  3rd Qu.:7281   3rd Qu.:24.140   3rd Qu.:4.000   3rd Qu.:0.006152  
##  Max.   :8969   Max.   :99.779   Max.   :4.000   Max.   :0.019991  
##   .edge_number  .distance_on_edge    .group             .coord_x     
##  Min.   :   1   Min.   :0.0000    Length:39574       Min.   :-122.4  
##  1st Qu.:1413   1st Qu.:0.2726    Class :character   1st Qu.:-122.4  
##  Median :2879   Median :0.5149    Mode  :character   Median :-122.4  
##  Mean   :3090   Mean   :0.5089                       Mean   :-122.4  
##  3rd Qu.:4753   3rd Qu.:0.7501                       3rd Qu.:-122.4  
##  Max.   :6826   Max.   :1.0000                       Max.   :-122.4  
##     .coord_y    
##  Min.   :37.77  
##  1st Qu.:37.78  
##  Median :37.79  
##  Mean   :37.79  
##  3rd Qu.:37.79  
##  Max.   :37.81

The following commands remove zero speed observations that are 1m away from the graph, and after that, they remove any speed observations that are 3m away from the graph.

to_remove = data_on_graph %>%
  filter(speed == 0, .distance_to_graph > 0.001) 

data_on_graph = setdiff(data_on_graph, to_remove) %>% 
  filter(.distance_to_graph <= 0.003)
summary(to_remove)
##        ID           speed        day        .distance_to_graph  .edge_number 
##  Min.   :5701   Min.   :0   Min.   :1.000   Min.   :0.001001   Min.   :   1  
##  1st Qu.:6574   1st Qu.:0   1st Qu.:2.000   1st Qu.:0.002757   1st Qu.:1376  
##  Median :6688   Median :0   Median :3.000   Median :0.004563   Median :2788  
##  Mean   :7078   Mean   :0   Mean   :2.556   Mean   :0.005453   Mean   :3031  
##  3rd Qu.:7277   3rd Qu.:0   3rd Qu.:4.000   3rd Qu.:0.007129   3rd Qu.:4715  
##  Max.   :8969   Max.   :0   Max.   :4.000   Max.   :0.019988   Max.   :6812  
##  .distance_on_edge    .group             .coord_x         .coord_y    
##  Min.   :0.0000    Length:8597        Min.   :-122.4   Min.   :37.77  
##  1st Qu.:0.3078    Class :character   1st Qu.:-122.4   1st Qu.:37.78  
##  Median :0.5301    Mode  :character   Median :-122.4   Median :37.79  
##  Mean   :0.5177                       Mean   :-122.4   Mean   :37.79  
##  3rd Qu.:0.7362                       3rd Qu.:-122.4   3rd Qu.:37.79  
##  Max.   :1.0000                       Max.   :-122.4   Max.   :37.81
summary(data_on_graph)
##        ID           speed             day       .distance_to_graph 
##  Min.   :5701   Min.   : 0.000   Min.   :1.00   Min.   :0.0000000  
##  1st Qu.:6565   1st Qu.: 9.656   1st Qu.:2.00   1st Qu.:0.0005835  
##  Median :6683   Median :19.312   Median :3.00   Median :0.0012618  
##  Mean   :7115   Mean   :19.385   Mean   :2.55   Mean   :0.0013511  
##  3rd Qu.:7286   3rd Qu.:27.359   3rd Qu.:4.00   3rd Qu.:0.0021077  
##  Max.   :8969   Max.   :99.779   Max.   :4.00   Max.   :0.0029999  
##   .edge_number  .distance_on_edge    .group             .coord_x     
##  Min.   :   1   Min.   :0.0000    Length:14534       Min.   :-122.4  
##  1st Qu.:1376   1st Qu.:0.2552    Class :character   1st Qu.:-122.4  
##  Median :2956   Median :0.5139    Mode  :character   Median :-122.4  
##  Mean   :3130   Mean   :0.5099                       Mean   :-122.4  
##  3rd Qu.:4803   3rd Qu.:0.7697                       3rd Qu.:-122.4  
##  Max.   :6817   Max.   :1.0000                       Max.   :-122.4  
##     .coord_y    
##  Min.   :37.77  
##  1st Qu.:37.78  
##  Median :37.79  
##  Mean   :37.79  
##  3rd Qu.:37.79  
##  Max.   :37.81

We add data to the graph.

sf_graph$add_observations(data = data_on_graph, 
                          group = "day", 
                          normalized = TRUE, 
                          clear_obs = TRUE)
sf_graph$get_data()
## # A tibble: 14,534 × 9
##       ID speed   day .distance_to_graph .coord_x .coord_y .edge_number
##    <int> <dbl> <dbl>              <dbl>    <dbl>    <dbl>        <dbl>
##  1  6666   0       1           0.00100     -122.     37.8            1
##  2  8941  12.9     1           0.00230     -122.     37.8            4
##  3  8768  24.1     1           0.00233     -122.     37.8            6
##  4  8929  32.2     1           0.00151     -122.     37.8            6
##  5  8965   0       1           0.000647    -122.     37.8            9
##  6  8965  19.3     1           0.00170     -122.     37.8           14
##  7  8954  22.5     1           0.00103     -122.     37.8           14
##  8  8774  19.3     1           0.00279     -122.     37.8           14
##  9  6655  30.6     1           0.00208     -122.     37.8           18
## 10  6677  14.5     1           0.000436    -122.     37.8           20
## # ℹ 14,524 more rows
## # ℹ 2 more variables: .distance_on_edge <dbl>, .group <chr>
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 4017 
##   Degree 2: 1821;  Degree 3: 180;  Degree 4: 1402;  Degree 5: 94;  Degree 6: 367; 
##   Degree 7: 36;  Degree 8: 116;  Degree 12: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 6827 
##   Lengths: 
##       Min: 0.002834658  ; Max: 0.2743201  ; Total: 311.1441 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: TRUE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  ID speed day 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We get the values of the weights at data locations. This essentially gives us covariates from the weights.

sf_graph$edgeweight_to_data(data_loc = TRUE)
sf_graph$get_data()
## # A tibble: 57,108 × 54
##       ID speed   day .distance_to_graph Length FRC   SpeedLimit StreetName     
##    <int> <dbl> <dbl>              <dbl>  <dbl> <chr>      <dbl> <chr>          
##  1    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  2    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  3    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  4  6666   0       1            0.00100 0.0361 5             40 Harrison St    
##  5    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  6    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  7    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  8    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  9    NA  NA      NA           NA       0.0361 5             40 Harrison St    
## 10  8941  12.9     1            0.00230 0.112  6             35 Rhode Island St
## # ℹ 57,098 more rows
## # ℹ 46 more variables: harmonicAverageSpeed <dbl>, medianSpeed <dbl>,
## #   averageSpeed <dbl>, sampleSize <int>, averageTravelTime <dbl>,
## #   medianTravelTime <dbl>, travelTimeRatio <dbl>, List_Number <int>,
## #   `5percentile` <int>, `10percentile` <int>, `15percentile` <int>,
## #   `20percentile` <int>, `25percentile` <int>, `30percentile` <int>,
## #   `35percentile` <int>, `40percentile` <int>, `45percentile` <int>, …
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 4017 
##   Degree 2: 1821;  Degree 3: 180;  Degree 4: 1402;  Degree 5: 94;  Degree 6: 367; 
##   Degree 7: 36;  Degree 8: 116;  Degree 12: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 6827 
##   Lengths: 
##       Min: 0.002834658  ; Max: 0.2743201  ; Total: 311.1441 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: TRUE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  ID speed day Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

When running sf_graph$edgeweight_to_data(data_loc = TRUE), some NA values are created (because the data is grouped). We remove them below. We also standardize the SpeedLimit covariate.

data = sf_graph$get_data() %>% 
  drop_na(-StreetName) %>% # this drops all rows with at least one NA value but without taking into account StreetName
  mutate(across(c("SpeedLimit"), ~standardize(.))) %>%
  dplyr::select(speed, SpeedLimit)

The code of chunk below was executed only one time.


{r, eval = FALSE}
aux = data |>
  rename(distance_on_edge = .distance_on_edge, edge_number = .edge_number) |>
  as.data.frame() |>
  dplyr::select(edge_number, distance_on_edge, .group)

distmatrixlist = list()

for (i in 1:4) {
  distmatrixlist[[i]] = sf_graph$compute_geodist_PtE(PtE = aux %>% 
                                                       filter(.group == as.character(i)) %>% 
                                                       dplyr::select(-.group),
                                                     normalized = TRUE,
                                                     include_vertices = FALSE)
}


save(distmatrixlist, file = here("Models_output/distmatrixfixed.RData"))

The code of chunk above was executed only one time.


summary(data)
##      speed          SpeedLimit         .group           .edge_number 
##  Min.   : 0.000   Min.   :-2.3743   Length:14534       Min.   :   1  
##  1st Qu.: 9.656   1st Qu.:-0.1006   Class :character   1st Qu.:1376  
##  Median :19.312   Median :-0.1006   Mode  :character   Median :2956  
##  Mean   :19.385   Mean   : 0.0000                      Mean   :3130  
##  3rd Qu.:27.359   3rd Qu.:-0.1006                      3rd Qu.:4803  
##  Max.   :99.779   Max.   : 6.6173                      Max.   :6817  
##  .distance_on_edge    .coord_x         .coord_y    
##  Min.   :0.0000    Min.   :-122.4   Min.   :37.77  
##  1st Qu.:0.2552    1st Qu.:-122.4   1st Qu.:37.78  
##  Median :0.5139    Median :-122.4   Median :37.79  
##  Mean   :0.5099    Mean   :-122.4   Mean   :37.79  
##  3rd Qu.:0.7697    3rd Qu.:-122.4   3rd Qu.:37.79  
##  Max.   :1.0000    Max.   :-122.4   Max.   :37.81

We add the data again but now with the new standardized SpeedLimit covariate.

sf_graph$add_observations(data = data, 
                          group = "day", 
                          normalized = TRUE, 
                          clear_obs = TRUE)
sf_graph$get_data()
## # A tibble: 14,534 × 7
##    speed SpeedLimit .coord_x .coord_y .edge_number .distance_on_edge .group
##    <dbl>      <dbl>    <dbl>    <dbl>        <dbl>             <dbl> <chr> 
##  1   0       -0.101    -122.     37.8            1            0.437  1     
##  2  12.9     -0.617    -122.     37.8            4            0.144  1     
##  3  24.1     -0.617    -122.     37.8            6            0.252  1     
##  4  32.2     -0.617    -122.     37.8            6            0.658  1     
##  5   0       -0.927    -122.     37.8            9            0.601  1     
##  6  19.3     -0.927    -122.     37.8           14            0.0247 1     
##  7  22.5     -0.927    -122.     37.8           14            0.362  1     
##  8  19.3     -0.927    -122.     37.8           14            0.832  1     
##  9  30.6     -0.927    -122.     37.8           18            0.358  1     
## 10  14.5     -0.927    -122.     37.8           20            0.309  1     
## # ℹ 14,524 more rows
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 4017 
##   Degree 2: 1821;  Degree 3: 180;  Degree 4: 1402;  Degree 5: 94;  Degree 6: 367; 
##   Degree 7: 36;  Degree 8: 116;  Degree 12: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 6827 
##   Lengths: 
##       Min: 0.002834658  ; Max: 0.2743201  ; Total: 311.1441 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: TRUE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  speed SpeedLimit 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We build a mesh.

h = 0.05
sf_graph$build_mesh(h = h)
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 4017 
##   Degree 2: 1821;  Degree 3: 180;  Degree 4: 1402;  Degree 5: 94;  Degree 6: 367; 
##   Degree 7: 36;  Degree 8: 116;  Degree 12: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 6827 
##   Lengths: 
##       Min: 0.002834658  ; Max: 0.2743201  ; Total: 311.1441 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: TRUE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: 
##   Max h_e:  0.04999798  ; Min n_e:  0 
## 
## Data: 
##   Columns:  speed SpeedLimit 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We get the value of the weights at mesh locations. This will allow us to built matrices B.sigma and B.range below. Again, sf_graph$edgeweight_to_data(mesh = TRUE, add = FALSE, return = TRUE) creates repeated information (because the data is grouped). We fix that by filtering one group. We also standardize the SpeedLimit covariate.

mesh = sf_graph$edgeweight_to_data(mesh = TRUE, 
                                   add = FALSE, 
                                   return = TRUE) %>% 
  filter(.group == 1) %>%
  mutate(across(c("SpeedLimit"), ~standardize(.))) %>%
  dplyr:::select.data.frame(SpeedLimit)
summary(mesh)
##    SpeedLimit     
##  Min.   :-1.9800  
##  1st Qu.:-0.1744  
##  Median :-0.1744  
##  Mean   : 0.0000  
##  3rd Qu.:-0.1744  
##  Max.   : 5.1604

1.1 Stationary model

  • Observe that we are considering replicates.
stat.time.ini <- Sys.time()
################################################################################
################################# STATIONARY MODEL #############################
################################################################################

rspde_model_stat <- rspde.metric_graph(sf_graph,
                                         parameterization = "matern",
                                         nu.upper.bound = 1.5)
str(rspde_model_stat)
## List of 20
##  $ f                   :List of 3
##   ..$ model   : chr "cgeneric"
##   ..$ n       : int 21507
##   ..$ cgeneric:List of 5
##   .. ..$ model: chr "inla_cgeneric_rspde_stat_general_model"
##   .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. ..$ n    : int 21507
##   .. ..$ debug: logi FALSE
##   .. ..$ data :List of 5
##   .. .. ..$ ints      :List of 5
##   .. .. .. ..$ n          : int 21507
##   .. .. .. ..$ debug      : int 0
##   .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. ..$ rspde.order: int 2
##   .. .. ..$ doubles   :List of 11
##   .. .. .. ..$ d                   : num 1
##   .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. ..$ matrices_less       : num [1:94764] 0.0797 0 0 0 0 ...
##   .. .. .. ..$ matrices_full       : num [1:207848] 0.0797 0 0 0 0 ...
##   .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. ..$ start.nu            : num 0.75
##   .. .. ..$ characters:List of 5
##   .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. ..$ matrices  :List of 2
##   .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. ..$ smatrices : list()
##   .. ..- attr(*, "class")= chr "inla.cgeneric"
##  $ cgeneric_type       : chr "general"
##  $ theta.prior.mean    : num [1:2] 0 0.223
##  $ prior.nu            :List of 4
##   ..$ loglocation: num -0.288
##   ..$ mean       : num 0.75
##   ..$ prec       : num 3
##   ..$ logscale   : num 1
##  $ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##  $ start.nu            : num 0.75
##  $ integer.nu          : logi FALSE
##  $ start.theta         : num [1:2] 0 0.223
##  $ stationary          : logi TRUE
##  $ rspde.order         : num 2
##  $ dim                 : num 1
##  $ est_nu              : logi TRUE
##  $ nu.upper.bound      : num 1.5
##  $ prior.nu.dist       : chr "lognormal"
##  $ debug               : logi FALSE
##  $ type.rational.approx: chr "chebfun"
##  $ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##  $ fem_mesh            :List of 5
##   ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. ..@ factors : list()
##   ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. ..@ factors : list()
##   ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. ..@ factors : list()
##   ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. ..@ factors : list()
##   ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. ..@ factors : list()
##  $ parameterization    : chr "matern"
##  $ n.spde              : int 7169
##  - attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
data_rspde_bru_stat <- graph_data_rspde(rspde_model_stat,
                                        repl = ".all",
                                        loc_name = "loc")
str(data_rspde_bru_stat)
## List of 4
##  $ data :List of 8
##   ..$ speed            : num [1:14534] 0 12.9 24.1 32.2 0 ...
##   ..$ SpeedLimit       : num [1:14534] -0.101 -0.617 -0.617 -0.617 -0.927 ...
##   ..$ .coord_x         : num [1:14534] -122 -122 -122 -122 -122 ...
##   ..$ .coord_y         : num [1:14534] 37.8 37.8 37.8 37.8 37.8 ...
##   ..$ .edge_number     : num [1:14534] 1 4 6 6 9 14 14 14 18 20 ...
##   ..$ .distance_on_edge: num [1:14534] 0.437 0.144 0.252 0.658 0.601 ...
##   ..$ .group           : chr [1:14534] "1" "1" "1" "1" ...
##   ..$ loc              : num [1:14534, 1:2] 1 4 6 6 9 14 14 14 18 20 ...
##   ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##  $ index:List of 3
##   ..$ field      : int [1:28676] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ field.group: int [1:28676] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ field.repl : int [1:28676] 1 1 1 1 1 1 1 1 1 1 ...
##   ..- attr(*, "class")= chr [1:2] "inla_rspde_index" "list"
##   ..- attr(*, "rspde.order")= num 0
##   ..- attr(*, "integer_nu")= logi TRUE
##   ..- attr(*, "n.mesh")= int 7169
##   ..- attr(*, "name")= chr "field"
##   ..- attr(*, "n.group")= int 1
##   ..- attr(*, "n.repl")= int 4
##  $ repl : chr [1:14534] "1" "1" "1" "1" ...
##  $ basis:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. ..@ i       : int [1:87204] 0 555 1905 1906 0 1050 1471 1472 1473 1905 ...
##   .. ..@ p       : int [1:86029] 0 4 11 11 11 11 12 13 15 15 ...
##   .. ..@ Dim     : int [1:2] 14534 86028
##   .. ..@ Dimnames:List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : NULL
##   .. ..@ x       : num [1:87204] 0.563 0.0495 0.3595 0.7935 0.437 ...
##   .. ..@ factors : list()
cmp_stat = speed ~ -1 +
  Intercept(1) +
  field(loc, model = rspde_model_stat,
        replicate = data_rspde_bru_stat[["repl"]])

rspde_fit_stat <-
  bru(cmp_stat,
      data = data_rspde_bru_stat[["data"]],
      family = "gaussian",
      options = list(verbose = FALSE)
  )
str(rspde_fit_stat)
## List of 56
##  $ names.fixed                : chr "Intercept"
##  $ summary.fixed              :'data.frame': 1 obs. of  7 variables:
##   ..$ mean      : num 21.8
##   ..$ sd        : num 4.05
##   ..$ 0.025quant: num 13.8
##   ..$ 0.5quant  : num 21.8
##   ..$ 0.975quant: num 29.7
##   ..$ mode      : num 21.8
##   ..$ kld       : num 1.36e-09
##  $ marginals.fixed            :List of 1
##   ..$ Intercept: num [1:43, 1:2] 4.22 6.5 9.13 12.29 13.8 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ summary.lincomb            :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb          : NULL
##  $ size.lincomb               : NULL
##  $ summary.lincomb.derived    :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb.derived  : NULL
##  $ size.lincomb.derived       : NULL
##  $ mlik                       : num [1:2, 1] -55615 -55613
##   ..- attr(*, "dimnames")=List of 2
##   .. ..$ : chr [1:2] "log marginal-likelihood (integration)" "log marginal-likelihood (Gaussian)"
##   .. ..$ : NULL
##  $ cpo                        :List of 3
##   ..$ cpo    : logi(0) 
##   ..$ pit    : logi(0) 
##   ..$ failure: logi(0) 
##  $ gcpo                       :List of 5
##   ..$ gcpo  : NULL
##   ..$ kld   : NULL
##   ..$ mean  : NULL
##   ..$ sd    : NULL
##   ..$ groups: NULL
##  $ po                         :List of 1
##   ..$ po: num [1:14534] 0.0111 0.0304 0.036 0.0341 0.0208 ...
##  $ waic                       :List of 4
##   ..$ waic       : num 108454
##   ..$ p.eff      : num 2796
##   ..$ local.waic : num [1:14534] 10.13 7.78 6.92 7.21 9.31 ...
##   ..$ local.p.eff: num [1:14534] 0.565 0.394 0.134 0.228 0.78 ...
##  $ residuals                  :List of 1
##   ..$ deviance.residuals: num [1:14534] -1.802 -1.016 -0.72 0.829 -1.44 ...
##  $ model.random               : chr "CGeneric"
##  $ summary.random             :List of 1
##   ..$ field:'data.frame':    86028 obs. of  8 variables:
##   .. ..$ ID        : num [1:86028] 1 2 3 4 5 6 7 8 9 10 ...
##   .. ..$ mean      : num [1:86028] -1.23 -1.98 1.55 1.62 1.8 ...
##   .. ..$ sd        : num [1:86028] 7.18 6.81 7.64 7.89 8.27 ...
##   .. ..$ 0.025quant: num [1:86028] -15.3 -15.3 -13.4 -13.9 -14.4 ...
##   .. ..$ 0.5quant  : num [1:86028] -1.23 -1.99 1.55 1.62 1.81 ...
##   .. ..$ 0.975quant: num [1:86028] 12.9 11.4 16.5 17.1 18 ...
##   .. ..$ mode      : num [1:86028] -1.23 -1.99 1.55 1.62 1.81 ...
##   .. ..$ kld       : num [1:86028] 6.02e-12 6.29e-12 7.98e-12 9.02e-12 9.45e-12 ...
##  $ marginals.random           :List of 1
##   ..$ field:List of 86028
##   .. ..$ index.1    : num [1:43, 1:2] -31.9 -28 -23.4 -17.9 -15.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.2    : num [1:43, 1:2] -31.1 -27.4 -23.1 -17.8 -15.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.3    : num [1:43, 1:2] -31.1 -26.9 -22.1 -16.2 -13.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.4    : num [1:43, 1:2] -32.1 -27.8 -22.8 -16.8 -13.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.5    : num [1:43, 1:2] -33.5 -29 -23.8 -17.4 -14.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.6    : num [1:43, 1:2] -36.9 -32.4 -27.2 -20.9 -17.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.7    : num [1:43, 1:2] -30 -25.9 -21.2 -15.5 -12.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.8    : num [1:43, 1:2] -28.9 -25 -20.4 -14.9 -12.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.9    : num [1:43, 1:2] -34.4 -29.5 -23.8 -16.9 -13.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.10   : num [1:43, 1:2] -32.3 -27 -21 -13.7 -10.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.11   : num [1:43, 1:2] -41.1 -36.1 -30.2 -23.1 -19.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.12   : num [1:43, 1:2] -43.8 -38.3 -32 -24.4 -20.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.13   : num [1:43, 1:2] -35.4 -31.4 -26.7 -21.1 -18.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.14   : num [1:43, 1:2] -38.4 -34.2 -29.3 -23.3 -20.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.15   : num [1:43, 1:2] -34.5 -30.5 -25.8 -20.2 -17.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.16   : num [1:43, 1:2] -34.5 -30.4 -25.6 -19.8 -17.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.17   : num [1:43, 1:2] -31 -27.2 -22.8 -17.4 -14.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.18   : num [1:43, 1:2] -36 -31.6 -26.5 -20.3 -17.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.19   : num [1:43, 1:2] -34.7 -30.6 -25.7 -19.9 -17.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.20   : num [1:43, 1:2] -41.4 -36.3 -30.4 -23.2 -19.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.21   : num [1:43, 1:2] -46.3 -40.5 -33.8 -25.7 -21.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.22   : num [1:43, 1:2] -41.8 -36.6 -30.5 -23.1 -19.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.23   : num [1:43, 1:2] -45.5 -40 -33.6 -25.8 -22.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.24   : num [1:43, 1:2] -45.3 -39.7 -33.4 -25.6 -21.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.25   : num [1:43, 1:2] -34.3 -29.7 -24.3 -17.8 -14.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.26   : num [1:43, 1:2] -31 -27 -22.4 -16.8 -14.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.27   : num [1:43, 1:2] -46.9 -41.7 -35.6 -28.3 -24.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.28   : num [1:43, 1:2] -43.6 -38.7 -33 -26 -22.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.29   : num [1:43, 1:2] -40.1 -35.9 -31 -25 -22.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.30   : num [1:43, 1:2] -30.9 -26.9 -22.2 -16.5 -13.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.31   : num [1:43, 1:2] -43.8 -39.1 -33.6 -27 -23.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.32   : num [1:43, 1:2] -43.6 -38.7 -33 -26.2 -22.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.33   : num [1:43, 1:2] -45.9 -40.8 -34.8 -27.5 -24 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.34   : num [1:43, 1:2] -37 -33 -28.4 -22.7 -20 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.35   : num [1:43, 1:2] -48.7 -42.7 -35.7 -27.3 -23.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.36   : num [1:43, 1:2] -41.6 -36.4 -30.4 -23.2 -19.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.37   : num [1:43, 1:2] -49.3 -43.2 -36.2 -27.7 -23.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.38   : num [1:43, 1:2] -49.2 -43.2 -36.2 -27.8 -23.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.39   : num [1:43, 1:2] -47.5 -41.8 -35.1 -27.1 -23.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.40   : num [1:43, 1:2] -43.7 -38.4 -32.4 -25 -21.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.41   : num [1:43, 1:2] -45.7 -40.3 -34 -26.4 -22.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.42   : num [1:43, 1:2] -43.6 -38.4 -32.3 -24.9 -21.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.43   : num [1:43, 1:2] -50.6 -44.9 -38.2 -30.1 -26.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.44   : num [1:43, 1:2] -43.7 -38.5 -32.5 -25.2 -21.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.45   : num [1:43, 1:2] -45 -40.2 -34.6 -27.9 -24.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.46   : num [1:43, 1:2] -41.3 -37.1 -32.3 -26.4 -23.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.47   : num [1:43, 1:2] -38.8 -34.7 -29.9 -24.1 -21.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.48   : num [1:43, 1:2] -33.6 -29.4 -24.6 -18.8 -16 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.49   : num [1:43, 1:2] -32.6 -28.4 -23.4 -17.4 -14.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.50   : num [1:43, 1:2] -33.3 -29.1 -24.2 -18.3 -15.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.51   : num [1:43, 1:2] -31 -27.2 -22.7 -17.3 -14.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.52   : num [1:43, 1:2] -40 -35.8 -30.9 -25 -22.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.53   : num [1:43, 1:2] -37 -33 -28.3 -22.7 -20 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.54   : num [1:43, 1:2] -43.1 -38.8 -33.7 -27.6 -24.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.55   : num [1:43, 1:2] -46.7 -41.8 -36 -29 -25.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.56   : num [1:43, 1:2] -44.9 -40.5 -35.5 -29.4 -26.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.57   : num [1:43, 1:2] -47 -42.5 -37.2 -30.8 -27.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.58   : num [1:43, 1:2] -41.6 -37.3 -32.3 -26.2 -23.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.59   : num [1:43, 1:2] -38.6 -34.3 -29.2 -23.1 -20.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.60   : num [1:43, 1:2] -43.6 -39.1 -33.8 -27.5 -24.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.61   : num [1:43, 1:2] -38.8 -34.3 -29 -22.6 -19.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.62   : num [1:43, 1:2] -34.1 -30 -25.2 -19.4 -16.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.63   : num [1:43, 1:2] -41.7 -37.2 -31.9 -25.4 -22.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.64   : num [1:43, 1:2] -39.8 -35.1 -29.7 -23.1 -19.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.65   : num [1:43, 1:2] -38.1 -33.6 -28.4 -22.1 -19.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.66   : num [1:43, 1:2] -35.7 -31.1 -25.8 -19.3 -16.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.67   : num [1:43, 1:2] -28.5 -24.5 -19.9 -14.3 -11.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.68   : num [1:43, 1:2] -36.1 -32 -27.3 -21.6 -18.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.69   : num [1:43, 1:2] -38.6 -34.2 -29.1 -23 -20 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.70   : num [1:43, 1:2] -34.3 -30.2 -25.5 -19.7 -17 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.71   : num [1:43, 1:2] -36.3 -32.2 -27.5 -21.9 -19.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.72   : num [1:43, 1:2] -33.7 -29.9 -25.4 -20 -17.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.73   : num [1:43, 1:2] -36.3 -30.9 -24.7 -17.1 -13.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.74   : num [1:43, 1:2] -26.08 -21.94 -17.14 -11.31 -8.52 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.75   : num [1:43, 1:2] -43.1 -38.4 -33 -26.4 -23.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.76   : num [1:43, 1:2] -47.9 -42.9 -37.1 -30 -26.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.77   : num [1:43, 1:2] -42.8 -37.8 -32.1 -25.1 -21.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.78   : num [1:43, 1:2] -34.5 -30.4 -25.6 -19.9 -17.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.79   : num [1:43, 1:2] -36.1 -32.1 -27.5 -21.8 -19.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.80   : num [1:43, 1:2] -33.2 -29.3 -24.8 -19.3 -16.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.81   : num [1:43, 1:2] -33.8 -29.9 -25.4 -20 -17.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.82   : num [1:43, 1:2] -31.9 -27.9 -23.3 -17.6 -14.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.83   : num [1:43, 1:2] -37 -33.1 -28.5 -22.9 -20.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.84   : num [1:43, 1:2] -38.5 -34.1 -28.9 -22.7 -19.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.85   : num [1:43, 1:2] -38 -33.6 -28.4 -22 -19 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.86   : num [1:43, 1:2] -37.6 -33.2 -28.1 -21.9 -18.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.87   : num [1:43, 1:2] -40.2 -35.5 -30 -23.4 -20.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.88   : num [1:43, 1:2] -32.6 -28.7 -24.3 -18.9 -16.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.89   : num [1:43, 1:2] -37.5 -33 -27.9 -21.7 -18.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.90   : num [1:43, 1:2] -34.2 -30.5 -26.1 -20.8 -18.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.91   : num [1:43, 1:2] -36.5 -32.5 -27.8 -22.1 -19.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.92   : num [1:43, 1:2] -34.4 -30.5 -26 -20.5 -17.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.93   : num [1:43, 1:2] -37.7 -33.4 -28.4 -22.4 -19.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.94   : num [1:43, 1:2] -38.5 -33.1 -26.9 -19.4 -15.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.95   : num [1:43, 1:2] -34.7 -30.1 -24.7 -18.3 -15.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.96   : num [1:43, 1:2] -36.5 -31.2 -25.2 -17.8 -14.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.97   : num [1:43, 1:2] -30 -25.4 -20.1 -13.8 -10.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.98   : num [1:43, 1:2] -39.2 -34.8 -29.7 -23.5 -20.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.99   : num [1:43, 1:2] -39.7 -35.3 -30.2 -24 -21 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. .. [list output truncated]
##  $ size.random                :List of 1
##   ..$ :List of 5
##   .. ..$ n     : num 21507
##   .. ..$ N     : num 21507
##   .. ..$ Ntotal: num 86028
##   .. ..$ ngroup: num 1
##   .. ..$ nrep  : num 4
##  $ summary.linear.predictor   :'data.frame': 100563 obs. of  7 variables:
##   ..$ mean      : num [1:100563] 15.8 19.4 25.6 29 11.6 ...
##   ..$ sd        : num [1:100563] 3.8 6.4 6.31 6.72 5.82 ...
##   ..$ 0.025quant: num [1:100563] 8.292 6.825 13.232 15.784 0.159 ...
##   ..$ 0.5quant  : num [1:100563] 15.8 19.4 25.6 29 11.6 ...
##   ..$ 0.975quant: num [1:100563] 23.2 31.9 38 42.1 23 ...
##   ..$ mode      : num [1:100563] 15.8 19.4 25.6 29 11.6 ...
##   ..$ kld       : num [1:100563] 5.73e-11 4.52e-11 4.14e-11 4.48e-11 4.50e-11 ...
##  $ marginals.linear.predictor : NULL
##  $ summary.fitted.values      :'data.frame': 100563 obs. of  6 variables:
##   ..$ mean      : num [1:100563] 15.8 19.4 25.6 29 11.6 ...
##   ..$ sd        : num [1:100563] 3.8 6.4 6.31 6.72 5.82 ...
##   ..$ 0.025quant: num [1:100563] 8.292 6.825 13.232 15.784 0.159 ...
##   ..$ 0.5quant  : num [1:100563] 15.8 19.4 25.6 29 11.6 ...
##   ..$ 0.975quant: num [1:100563] 23.2 31.9 38 42.1 23 ...
##   ..$ mode      : num [1:100563] 15.8 19.4 25.6 29 11.6 ...
##  $ marginals.fitted.values    : NULL
##  $ size.linear.predictor      :List of 5
##   ..$ n     : num 86029
##   ..$ N     : num 86029
##   ..$ Ntotal: num 100563
##   ..$ ngroup: num 1
##   ..$ nrep  : num 2
##  $ summary.hyperpar           :'data.frame': 4 obs. of  6 variables:
##   ..$ mean      : num [1:4] 0.0124 4.6401 1.489 -3.4357
##   ..$ sd        : num [1:4] 0.000186 0.033959 0.07351 0.066848
##   ..$ 0.025quant: num [1:4] 0.012 4.575 1.332 -3.58
##   ..$ 0.5quant  : num [1:4] 0.0124 4.6394 1.4929 -3.4314
##   ..$ 0.975quant: num [1:4] 0.0127 4.7089 1.6203 -3.3197
##   ..$ mode      : num [1:4] 0.0124 4.6366 1.5123 -3.4093
##  $ marginals.hyperpar         :List of 4
##   ..$ Precision for the Gaussian observations: num [1:43, 1:2] 0.0116 0.0117 0.0118 0.0119 0.012 ...
##   .. ..- attr(*, "hyperid")= chr "65001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                       : num [1:43, 1:2] 4.5 4.52 4.54 4.56 4.58 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                       : num [1:43, 1:2] 1.13 1.18 1.23 1.3 1.33 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                       : num [1:43, 1:2] -3.77 -3.72 -3.67 -3.61 -3.58 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ internal.summary.hyperpar  :'data.frame': 4 obs. of  6 variables:
##   ..$ mean      : num [1:4] -4.39 4.64 1.49 -3.44
##   ..$ sd        : num [1:4] 0.0151 0.034 0.0735 0.0668
##   ..$ 0.025quant: num [1:4] -4.42 4.58 1.33 -3.58
##   ..$ 0.5quant  : num [1:4] -4.39 4.64 1.49 -3.43
##   ..$ 0.975quant: num [1:4] -4.36 4.71 1.62 -3.32
##   ..$ mode      : num [1:4] -4.39 4.64 1.51 -3.41
##  $ internal.marginals.hyperpar:List of 4
##   ..$ Log precision for the Gaussian observations: num [1:43, 1:2] -4.46 -4.45 -4.44 -4.43 -4.42 ...
##   .. ..- attr(*, "hyperid")= chr "65001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                           : num [1:43, 1:2] 4.5 4.52 4.54 4.56 4.58 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                           : num [1:43, 1:2] 1.13 1.18 1.23 1.3 1.33 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                           : num [1:43, 1:2] -3.77 -3.72 -3.67 -3.61 -3.58 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ offset.linear.predictor    : num [1:100563] 0 0 0 0 0 0 0 0 0 0 ...
##  $ model.spde2.blc            : NULL
##  $ summary.spde2.blc          : list()
##  $ marginals.spde2.blc        : NULL
##  $ size.spde2.blc             : NULL
##  $ model.spde3.blc            : NULL
##  $ summary.spde3.blc          : list()
##  $ marginals.spde3.blc        : NULL
##  $ size.spde3.blc             : NULL
##  $ logfile                    : chr [1:700] "[PANUA] PARDISO License is expired." "[PANUA] Please obtain a new PARDISO license at https://www.panua.ch/products/pardiso" "        Read ntt 7 1 with max.threads 24" "        Found num.threads = 7:1 max_threads = 7" ...
##  $ misc                       :List of 22
##   ..$ cov.intern                        : num [1:4, 1:4] 2.29e-04 1.34e-04 1.68e-04 -4.73e-05 1.34e-04 ...
##   ..$ cor.intern                        : num [1:4, 1:4] 1 0.2453 0.1552 -0.0473 0.2453 ...
##   ..$ cov.intern.eigenvalues            : num [1:4] 0.00016 0.000301 0.005281 0.005281
##   ..$ cov.intern.eigenvectors           : num [1:4, 1:4] 0.7584 -0.5893 0.0863 -0.2649 -0.6505 ...
##   ..$ reordering                        : int [1:86029] 25183 25192 26654 26667 26678 25635 25573 25608 32475 32474 ...
##   ..$ theta.tags                        : chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   ..$ log.posterior.mode                : num -55603
##   ..$ stdev.corr.negative               : num [1:4] 1.13 1.023 0.842 1.471
##   ..$ stdev.corr.positive               : num [1:4] 0.885 0.978 1.188 0.68
##   ..$ to.theta                          :List of 4
##   .. ..$ Log precision for the Gaussian observations:function (x)  
##   .. ..$ Theta1 for field                           :function (x)  
##   .. ..$ Theta2 for field                           :function (x)  
##   .. ..$ Theta3 for field                           :function (x)  
##   ..$ from.theta                        :List of 4
##   .. ..$ Log precision for the Gaussian observations:function (x)  
##   .. ..$ Theta1 for field                           :function (x)  
##   .. ..$ Theta2 for field                           :function (x)  
##   .. ..$ Theta3 for field                           :function (x)  
##   ..$ mode.status                       : num 0
##   ..$ lincomb.derived.correlation.matrix: NULL
##   ..$ lincomb.derived.covariance.matrix : NULL
##   ..$ opt.directions                    : num [1:4, 1:4] -0.225 0.339 0.855 -0.321 0.906 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : chr [1:4] "theta:1" "theta:2" "theta:3" "theta:4"
##   .. .. ..$ : chr [1:4] "dir:1" "dir:2" "dir:3" "dir:4"
##   ..$ configs                           :List of 17
##   .. ..$ .preopt          : logi TRUE
##   .. ..$ lite             : logi FALSE
##   .. ..$ mpred            : int 14534
##   .. ..$ npred            : int 86029
##   .. ..$ mnpred           : int 100563
##   .. ..$ Npred            : int 14534
##   .. ..$ n                : int 86029
##   .. ..$ nz               : int 631029
##   .. ..$ prior_nz         : int 542049
##   .. ..$ ntheta           : int 4
##   .. ..$ nconfig          : int 25
##   .. ..$ offsets          : num [1:100563] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ contents         :List of 3
##   .. .. ..$ tag   : chr [1:4] "APredictor" "Predictor" "field" "Intercept"
##   .. .. ..$ start : int [1:4] 1 14535 100564 186592
##   .. .. ..$ length: int [1:4] 14534 86029 86028 1
##   .. ..$ A                :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:86029] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. ..@ j       : int [1:86029] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:86029] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ pA               :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:101696] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:101696] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 14534 86029
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:101696] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ config           :List of 25
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.39 4.67 1.46 -3.5
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -4.2
##   .. .. .. ..$ log.posterior.orig: num -0.201
##   .. .. .. ..$ mean              : num [1:86029] -1.21 -1.96 1.58 1.65 1.83 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.21 -1.96 1.58 1.65 1.83 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0809 -0.0288 0.1819 0.219 -0.0842 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 51.5 39.4 46.4 58.2 54.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0675 -0.0367 0.1444 0.219 -0.0842 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1948 -0.0809 -0.0182 0.0398 -0.1433 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.7 19.4 25.6 29 11.6 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.76 -1.21 -1.96 1.58 1.65 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.37 4.65 1.47 -3.5
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.76
##   .. .. .. ..$ log.posterior.orig: num -2.56
##   .. .. .. ..$ mean              : num [1:86029] -1.18 -1.95 1.61 1.68 1.86 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.18 -1.95 1.61 1.68 1.86 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0839 -0.0302 0.1886 0.228 -0.0876 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 49.7 38.1 44.8 56.1 52.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0703 -0.0383 0.1504 0.228 -0.0876 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1988 -0.0835 -0.0188 0.0407 -0.147 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.8 19.5 25.6 29 11.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.76 -1.18 -1.95 1.61 1.68 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.42 4.69 1.46 -3.49
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -6.05
##   .. .. .. ..$ log.posterior.orig: num -2.85
##   .. .. .. ..$ mean              : num [1:86029] -1.24 -1.98 1.55 1.62 1.8 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.24 -1.98 1.55 1.62 1.8 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0771 -0.0272 0.1738 0.208 -0.0799 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 53.9 41.2 48.5 61 57.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0641 -0.0349 0.1372 0.208 -0.0799 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1898 -0.0778 -0.0174 0.0386 -0.1387 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.7 19.3 25.6 29 11.5 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.74 -1.24 -1.98 1.55 1.62 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.42 4.64 1.47 -3.51
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.96
##   .. .. .. ..$ log.posterior.orig: num -2.77
##   .. .. .. ..$ mean              : num [1:86029] -1.12 -1.92 1.67 1.75 1.92 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.12 -1.92 1.67 1.75 1.92 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0856 -0.0318 0.192 0.2355 -0.0905 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 48.5 37.3 43.7 54.7 51.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0726 -0.0395 0.1553 0.2355 -0.0905 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1921 -0.0833 -0.0188 0.0399 -0.1445 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.9 19.8 25.7 28.9 12 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.76 -1.12 -1.92 1.67 1.75 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.37 4.7 1.46 -3.48
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.74
##   .. .. .. ..$ log.posterior.orig: num -2.54
##   .. .. .. ..$ mean              : num [1:86029] -1.3 -2.01 1.48 1.55 1.74 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.3 -2.01 1.48 1.55 1.74 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0765 -0.0261 0.1729 0.2038 -0.0783 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 54.7 41.8 49.2 62 58.2 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0628 -0.0342 0.1344 0.2038 -0.0783 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1978 -0.0786 -0.0176 0.0396 -0.142 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.6 19.1 25.5 29.1 11.2 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.75 -1.3 -2.01 1.48 1.55 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.4 4.6 1.3 -3.43
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.84
##   .. .. .. ..$ log.posterior.orig: num -2.64
##   .. .. .. ..$ mean              : num [1:86029] -1.624 -2.354 0.976 1.039 1.271 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.624 -2.354 0.976 1.039 1.271 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0733 -0.0248 0.1657 0.1948 -0.0748 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 50.1 36.8 44.4 58.2 54.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.06 -0.0327 0.1285 0.1948 -0.0748 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1982 -0.0746 -0.0163 0.0424 -0.1416 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 16.1 18.9 25.5 28.7 11.5 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.765 -1.624 -2.354 0.976 1.039 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.39 4.72 1.58 -3.55
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.68
##   .. .. .. ..$ log.posterior.orig: num -2.49
##   .. .. .. ..$ mean              : num [1:86029] -0.949 -1.712 1.991 2.069 2.212 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -0.949 -1.712 1.991 2.069 2.212 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0868 -0.032 0.1948 0.2382 -0.0915 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 53.1 41.8 48.3 58.9 55.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0734 -0.04 0.1571 0.2382 -0.0915 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.192 -0.0849 -0.0194 0.0374 -0.1437 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.4 19.7 25.7 29.2 11.5 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.739 -0.949 -1.712 1.991 2.069 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.39 4.64 1.51 -3.41
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -3.2
##   .. .. .. ..$ log.posterior.orig: num 0
##   .. .. .. ..$ mean              : num [1:86029] -1.19 -1.95 1.59 1.66 1.84 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.19 -1.95 1.59 1.66 1.84 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0815 -0.0292 0.1833 0.221 -0.0849 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 51.8 39.8 46.7 58.3 54.9 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0681 -0.0371 0.1458 0.221 -0.0849 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1948 -0.0812 -0.0182 0.0398 -0.1435 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.7 19.4 25.6 29 11.6 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.75 -1.19 -1.95 1.59 1.66 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.39 4.74 1.35 -3.69
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -3.92
##   .. .. .. ..$ log.posterior.orig: num -0.721
##   .. .. .. ..$ mean              : num [1:86029] -1.24 -1.99 1.56 1.63 1.82 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.24 -1.99 1.56 1.63 1.82 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0799 -0.0283 0.1798 0.2158 -0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 50.8 38.6 45.6 57.7 54.1 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0665 -0.0362 0.1423 0.2158 -0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1949 -0.0806 -0.018 0.0399 -0.1431 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.7 19.4 25.6 29 11.6 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.77 -1.24 -1.99 1.56 1.63 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.39 4.75 1.46 -3.61
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.4
##   .. .. .. ..$ log.posterior.orig: num -2.2
##   .. .. .. ..$ mean              : num [1:86029] -1.14 -1.88 1.71 1.79 1.96 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.14 -1.88 1.71 1.79 1.96 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0792 -0.0279 0.1785 0.2136 -0.0821 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 54.5 42.2 49.3 61.4 57.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0658 -0.0358 0.1408 0.2136 -0.0821 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1925 -0.0801 -0.0181 0.0381 -0.1407 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.5 19.3 25.6 29.1 11.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.75 -1.14 -1.88 1.71 1.79 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.39 4.7 1.54 -3.47
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.13
##   .. .. .. ..$ log.posterior.orig: num -1.94
##   .. .. .. ..$ mean              : num [1:86029] -1.12 -1.86 1.73 1.8 1.97 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.12 -1.86 1.73 1.8 1.97 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0797 -0.0282 0.1796 0.2152 -0.0827 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 55.2 42.9 50 61.9 58.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0663 -0.0361 0.1419 0.2152 -0.0827 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1923 -0.0803 -0.0181 0.038 -0.1406 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.5 19.3 25.6 29.1 11.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.73 -1.12 -1.86 1.73 1.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.39 4.69 1.32 -3.55
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.52
##   .. .. .. ..$ log.posterior.orig: num -2.32
##   .. .. .. ..$ mean              : num [1:86029] -1.5 -2.21 1.21 1.27 1.49 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.5 -2.21 1.21 1.27 1.49 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0727 -0.0244 0.1644 0.1926 -0.074 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 53.1 39.6 47.3 61.2 57.2 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0594 -0.0323 0.127 0.1926 -0.074 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1955 -0.075 -0.0166 0.0405 -0.1395 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.8 18.9 25.5 28.9 11.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.76 -1.5 -2.21 1.21 1.27 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.39 4.64 1.4 -3.41
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -4.9
##   .. .. .. ..$ log.posterior.orig: num -1.7
##   .. .. .. ..$ mean              : num [1:86029] -1.47 -2.18 1.22 1.29 1.5 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.47 -2.18 1.22 1.29 1.5 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0734 -0.0248 0.1661 0.1951 -0.075 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 53.5 40.2 47.8 61.4 57.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0601 -0.0327 0.1287 0.1951 -0.075 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1955 -0.0753 -0.0167 0.0405 -0.1398 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.8 19 25.5 28.9 11.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.75 -1.47 -2.18 1.22 1.29 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.41 4.72 1.47 -3.62
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.44
##   .. .. .. ..$ log.posterior.orig: num -2.24
##   .. .. .. ..$ mean              : num [1:86029] -1.06 -1.83 1.81 1.89 2.05 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.06 -1.83 1.81 1.89 2.05 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0837 -0.0307 0.1878 0.2291 -0.088 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 51.5 39.8 46.5 57.7 54.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0706 -0.0384 0.1511 0.2291 -0.088 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1897 -0.0824 -0.0187 0.0382 -0.1418 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.6 19.7 25.7 29 11.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.75 -1.06 -1.83 1.81 1.89 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.41 4.67 1.55 -3.48
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.11
##   .. .. .. ..$ log.posterior.orig: num -1.91
##   .. .. .. ..$ mean              : num [1:86029] -1.04 -1.81 1.82 1.9 2.06 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.04 -1.81 1.82 1.9 2.06 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0845 -0.0311 0.1896 0.2318 -0.0891 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 52 40.5 47.1 58.1 54.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0715 -0.0389 0.1529 0.2318 -0.0891 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1896 -0.0827 -0.0188 0.0382 -0.142 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.6 19.7 25.7 29 11.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.74 -1.04 -1.81 1.82 1.9 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.42 4.67 1.33 -3.56
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.45
##   .. .. .. ..$ log.posterior.orig: num -2.26
##   .. .. .. ..$ mean              : num [1:86029] -1.39 -2.16 1.3 1.37 1.58 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.39 -2.16 1.3 1.37 1.58 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0767 -0.027 0.1727 0.2066 -0.0794 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 50.1 37.4 44.7 57.5 53.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0637 -0.0347 0.1363 0.2066 -0.0794 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1927 -0.0772 -0.0171 0.0407 -0.1407 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 16 19.3 25.6 28.8 11.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.77 -1.39 -2.16 1.3 1.37 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.42 4.62 1.41 -3.42
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.06
##   .. .. .. ..$ log.posterior.orig: num -1.86
##   .. .. .. ..$ mean              : num [1:86029] -1.36 -2.13 1.31 1.38 1.59 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.36 -2.13 1.31 1.38 1.59 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0778 -0.0276 0.1751 0.2102 -0.0808 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 50.4 37.9 45 57.6 53.9 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0648 -0.0353 0.1386 0.2102 -0.0808 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1928 -0.0777 -0.0172 0.0407 -0.1411 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 16 19.3 25.6 28.8 11.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.75 -1.36 -2.13 1.31 1.38 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.37 4.73 1.46 -3.62
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.5
##   .. .. .. ..$ log.posterior.orig: num -2.3
##   .. .. .. ..$ mean              : num [1:86029] -1.12 -1.87 1.74 1.82 1.98 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.12 -1.87 1.74 1.82 1.98 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0823 -0.0292 0.1853 0.2226 -0.0856 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 52.5 40.6 47.5 59 55.6 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0686 -0.0374 0.1468 0.2226 -0.0856 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1969 -0.0828 -0.0187 0.0391 -0.1446 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.5 19.4 25.6 29.1 11.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.76 -1.12 -1.87 1.74 1.82 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.37 4.68 1.54 -3.47
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.16
##   .. .. .. ..$ log.posterior.orig: num -1.96
##   .. .. .. ..$ mean              : num [1:86029] -1.1 -1.85 1.76 1.83 1.99 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.1 -1.85 1.76 1.83 1.99 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0831 -0.0297 0.1871 0.2253 -0.0866 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 53.1 41.3 48.1 59.4 56 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0695 -0.0378 0.1486 0.2253 -0.0866 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1969 -0.0831 -0.0188 0.039 -0.1448 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.5 19.4 25.6 29.1 11.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.75 -1.1 -1.85 1.76 1.83 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.37 4.68 1.32 -3.56
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.46
##   .. .. .. ..$ log.posterior.orig: num -2.26
##   .. .. .. ..$ mean              : num [1:86029] -1.47 -2.19 1.24 1.3 1.51 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.47 -2.19 1.24 1.3 1.51 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0758 -0.0258 0.1712 0.2017 -0.0775 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 51 38.1 45.5 58.7 54.9 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0622 -0.0338 0.133 0.2017 -0.0775 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.2001 -0.0777 -0.0172 0.0416 -0.1437 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.9 19 25.5 28.9 11.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.77 -1.47 -2.19 1.24 1.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.37 4.63 1.4 -3.41
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.05
##   .. .. .. ..$ log.posterior.orig: num -1.86
##   .. .. .. ..$ mean              : num [1:86029] -1.44 -2.16 1.25 1.32 1.53 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.44 -2.16 1.25 1.32 1.53 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0766 -0.0262 0.1729 0.2043 -0.0785 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 51.4 38.7 46 58.9 55.1 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.063 -0.0343 0.1347 0.2043 -0.0785 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.2001 -0.078 -0.0173 0.0416 -0.1439 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.9 19.1 25.5 28.9 11.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.76 -1.44 -2.16 1.25 1.32 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.39 4.71 1.47 -3.63
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.5
##   .. .. .. ..$ log.posterior.orig: num -2.3
##   .. .. .. ..$ mean              : num [1:86029] -1.04 -1.82 1.84 1.92 2.08 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.04 -1.82 1.84 1.92 2.08 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0873 -0.0323 0.1957 0.2399 -0.0922 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 49.4 38.3 44.7 55.4 52.2 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0739 -0.0403 0.1582 0.2399 -0.0922 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1941 -0.0853 -0.0194 0.0392 -0.146 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.7 19.8 25.7 29 11.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.76 -1.04 -1.82 1.84 1.92 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.39 4.66 1.55 -3.49
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.31
##   .. .. .. ..$ log.posterior.orig: num -2.11
##   .. .. .. ..$ mean              : num [1:86029] -1.02 -1.8 1.85 1.93 2.09 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.02 -1.8 1.85 1.93 2.09 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0882 -0.0328 0.1976 0.2427 -0.0933 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 50 38.9 45.3 55.8 52.6 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0748 -0.0407 0.1601 0.2427 -0.0933 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1941 -0.0856 -0.0195 0.0392 -0.1462 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.7 19.8 25.7 29 11.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.75 -1.02 -1.8 1.85 1.93 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.4 4.65 1.33 -3.57
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.35
##   .. .. .. ..$ log.posterior.orig: num -2.15
##   .. .. .. ..$ mean              : num [1:86029] -1.36 -2.14 1.33 1.4 1.6 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.36 -2.14 1.33 1.4 1.6 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0799 -0.0284 0.1799 0.2163 -0.0831 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 48.1 36 42.9 55.2 51.6 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0667 -0.0363 0.1427 0.2163 -0.0831 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1972 -0.0799 -0.0177 0.0418 -0.1448 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 16 19.4 25.6 28.8 11.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.77 -1.36 -2.14 1.33 1.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.4 4.6 1.41 -3.43
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   .. .. .. ..$ log.posterior     : num -5.11
##   .. .. .. ..$ log.posterior.orig: num -1.92
##   .. .. .. ..$ mean              : num [1:86029] -1.34 -2.11 1.34 1.41 1.62 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -1.34 -2.11 1.34 1.41 1.62 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0808 -0.0289 0.1817 0.2191 -0.0842 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 48.5 36.5 43.4 55.4 51.9 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.0675 -0.0368 0.1445 0.2191 -0.0842 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1972 -0.0803 -0.0178 0.0418 -0.1451 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 16 19.4 25.6 28.8 11.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.76 -1.34 -2.11 1.34 1.41 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. ..$ max.log.posterior: num -55602
##   ..$ nfunc                             : num 576
##   ..$ warnings                          : chr(0) 
##   ..$ opt.trace                         :List of 3
##   .. ..$ f    : Named num [1:91] 29045460 29012153 28960838 11240732 11221098 ...
##   .. .. ..- attr(*, "names")= chr [1:91] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ nfunc: Named int [1:91] 2 4 5 6 8 12 13 14 16 18 ...
##   .. .. ..- attr(*, "names")= chr [1:91] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ theta: num [1:91, 1:4] 4 4 4 3.14 3.14 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : chr [1:91] "iter1" "iter2" "iter3" "iter4" ...
##   .. .. .. ..$ : chr [1:4] "theta1" "theta2" "theta3" "theta4"
##   ..$ theta.mode                        : num [1:4] -4.39 4.64 1.51 -3.41
##   ..$ linkfunctions                     :List of 2
##   .. ..$ names: chr "identity"
##   .. ..$ link : int [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ family                            : int [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##  $ dic                        :List of 14
##   ..$ dic              : num 108284
##   ..$ p.eff            : num 3187
##   ..$ mean.deviance    : num 105097
##   ..$ deviance.mean    : num 101911
##   ..$ dic.sat          : num 17727
##   ..$ mean.deviance.sat: num 14540
##   ..$ deviance.mean.sat: num 11364
##   ..$ family.dic       : num 108284
##   ..$ family.dic.sat   : num 17716
##   ..$ family.p.eff     : num 3187
##   ..$ family           : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ local.dic        : num [1:14534] 9.66 7.77 7.24 7.48 8.72 ...
##   ..$ local.dic.sat    : num [1:14534] 3.42 1.54 1.01 1.25 2.49 ...
##   ..$ local.p.eff      : num [1:14534] 0.177 0.508 0.493 0.56 0.418 ...
##  $ mode                       :List of 5
##   ..$ theta             : Named num [1:4] -4.39 4.64 1.51 -3.41
##   .. ..- attr(*, "names")= chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   ..$ x                 : num [1:186592] 15.7 19.4 25.6 29 11.6 ...
##   ..$ theta.tags        : chr [1:4] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field"
##   ..$ mode.status       : num 0
##   ..$ log.posterior.mode: num -55603
##  $ joint.hyper                :'data.frame': 25 obs. of  6 variables:
##   ..$ Log precision for the Gaussian observations : num [1:25] -4.39 -4.37 -4.42 -4.42 -4.37 ...
##   ..$ Theta1 for field                            : num [1:25] 4.64 4.62 4.65 4.61 4.66 ...
##   ..$ Theta2 for field                            : num [1:25] 1.51 1.52 1.51 1.52 1.51 ...
##   ..$ Theta3 for field                            : num [1:25] -3.41 -3.41 -3.4 -3.42 -3.39 ...
##   ..$ Log posterior density                       : num [1:25] -55616 -55619 -55619 -55619 -55619 ...
##   ..$ Total integration weight (log.dens included): num [1:25] 0.0849 0.0179 0.0134 0.0146 0.0183 ...
##  $ nhyper                     : int 4
##  $ version                    :List of 2
##   ..$ inla.call: chr "GITCOMMIT [65caa90be5e1562e187020eca3bb20611b547b59 - Mon Apr 22 10:01:05 2024 +0300]"
##   ..$ R.INLA   : Named chr "24.04.22"
##   .. ..- attr(*, "names")= chr "version"
##  $ Q                          : NULL
##  $ graph                      : NULL
##  $ ok                         : logi TRUE
##  $ cpu.intern                 : chr [1:16] "Wall-clock time used on [/tmp/RtmprGGRho/file1f481955187ddc/Model.ini]" "Preparations             :   0.237 seconds" "Approx inference (stage1):  56.862 seconds" "Approx inference (stage2):   0.002 seconds" ...
##  $ cpu.used                   : Named num [1:4] 0.399 58.113 6.956 65.468
##   ..- attr(*, "names")= chr [1:4] "Pre" "Running" "Post" "Total"
##  $ all.hyper                  :List of 4
##   ..$ predictor:List of 1
##   .. ..$ hyper:List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   ..$ family   :List of 1
##   .. ..$ :List of 4
##   .. .. ..$ hyperid: chr "INLA.Data1"
##   .. .. ..$ label  : chr "gaussian"
##   .. .. ..$ hyper  :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 65001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "Precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "Log precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 4
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 65002
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision offset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "precoffset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 72.1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi TRUE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "none"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ param             : num(0) 
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ link   :List of 1
##   .. .. .. ..$ hyper: list()
##   ..$ linear   :List of 1
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "Intercept"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   ..$ random   :List of 2
##   .. ..$ : NULL
##   .. ..$ :List of 3
##   .. .. ..$ hyperid    : chr "field"
##   .. .. ..$ hyper      : NULL
##   .. .. ..$ group.hyper:List of 1
##   .. .. .. ..$ theta:List of 9
##   .. .. .. .. ..$ hyperid   : num 40001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name      : chr "logit correlation"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name: chr "rho"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial   : num 1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed     : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior     : chr "normal"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param     : num [1:2] 0 0.2
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta  :function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta:function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##  $ .args                      :List of 30
##   ..$ formula          :Class 'formula'  language BRU.response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   ..$ family           : chr "gaussian"
##   ..$ data             :List of 16
##   .. ..$ BRU.response            : num [1:14534] 0 12.9 24.1 32.2 0 ...
##   .. ..$ BRU.E                   : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.Ntrials             : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.weights             : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.scale               : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.offset              : num [1:14534] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ Intercept               : num [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.group         : int [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.repl          : int [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ field                   : int [1:86029] NA 1 2 3 4 5 6 7 8 9 ...
##   .. ..$ field.group             : int [1:86029] NA 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ field.repl              : int [1:86029] NA 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU_Intercept_main_model: chr "linear"
##   .. ..$ BRU_Intercept_values    : num 1
##   .. ..$ BRU_field_main_model    :List of 20
##   .. .. ..$ f                   :List of 3
##   .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. ..$ n       : int 21507
##   .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. ..$ rspde.order: int 2
##   .. .. .. .. .. ..$ doubles   :List of 11
##   .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. ..$ matrices_less       : num [1:94764] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ matrices_full       : num [1:207848] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. ..$ characters:List of 5
##   .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. ..$ matrices  :List of 2
##   .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. ..$ cgeneric_type       : chr "general"
##   .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. ..$ prior.nu            :List of 4
##   .. .. .. ..$ loglocation: num -0.288
##   .. .. .. ..$ mean       : num 0.75
##   .. .. .. ..$ prec       : num 3
##   .. .. .. ..$ logscale   : num 1
##   .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. ..$ start.nu            : num 0.75
##   .. .. ..$ integer.nu          : logi FALSE
##   .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. ..$ stationary          : logi TRUE
##   .. .. ..$ rspde.order         : num 2
##   .. .. ..$ dim                 : num 1
##   .. .. ..$ est_nu              : logi TRUE
##   .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. ..$ debug               : logi FALSE
##   .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. ..$ fem_mesh            :List of 5
##   .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. ..$ parameterization    : chr "matern"
##   .. .. ..$ n.spde              : int 7169
##   .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. ..$ BRU_field_values        : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ quantiles        : num [1:3] 0.025 0.5 0.975
##   ..$ E                : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ offset           : num [1:14534] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ scale            : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ weights          : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ Ntrials          : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ verbose          : logi FALSE
##   ..$ control.compute  :List of 18
##   .. ..$ openmp.strategy           : chr "default"
##   .. ..$ hyperpar                  : logi TRUE
##   .. ..$ return.marginals          : logi TRUE
##   .. ..$ return.marginals.predictor: logi FALSE
##   .. ..$ dic                       : logi TRUE
##   .. ..$ mlik                      : logi TRUE
##   .. ..$ cpo                       : logi FALSE
##   .. ..$ po                        : logi FALSE
##   .. ..$ waic                      : logi TRUE
##   .. ..$ residuals                 : logi FALSE
##   .. ..$ q                         : logi FALSE
##   .. ..$ config                    : logi TRUE
##   .. ..$ likelihood.info           : logi FALSE
##   .. ..$ smtp                      : NULL
##   .. ..$ graph                     : logi FALSE
##   .. ..$ internal.opt              : NULL
##   .. ..$ save.memory               : NULL
##   .. ..$ control.gcpo              :List of 16
##   .. .. ..$ enable          : logi FALSE
##   .. .. ..$ num.level.sets  : num -1
##   .. .. ..$ size.max        : num 32
##   .. .. ..$ strategy        : chr [1:2] "posterior" "prior"
##   .. .. ..$ groups          : NULL
##   .. .. ..$ selection       : NULL
##   .. .. ..$ group.selection : NULL
##   .. .. ..$ friends         : NULL
##   .. .. ..$ weights         : NULL
##   .. .. ..$ verbose         : logi FALSE
##   .. .. ..$ epsilon         : num 0.005
##   .. .. ..$ prior.diagonal  : num 1e-04
##   .. .. ..$ correct.hyperpar: logi TRUE
##   .. .. ..$ keep            : NULL
##   .. .. ..$ remove          : NULL
##   .. .. ..$ remove.fixed    : logi TRUE
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_gcpo" "inla_ctrl_object"
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_compute" "inla_ctrl_object"
##   ..$ control.predictor:List of 12
##   .. ..$ hyper    :List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. ..$ fixed    : NULL
##   .. ..$ prior    : NULL
##   .. ..$ param    : NULL
##   .. ..$ initial  : NULL
##   .. ..$ compute  : logi TRUE
##   .. ..$ cdf      : NULL
##   .. ..$ quantiles: NULL
##   .. ..$ cross    : NULL
##   .. ..$ A        :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:101696] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:101696] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 14534 86029
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:101696] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ precision: num 3269017
##   .. ..$ link     : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_predictor" "inla_ctrl_object"
##   ..$ control.family   :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ dummy            : num 0
##   .. .. ..$ hyper            :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 65001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "Precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "Log precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 4
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 65002
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision offset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "precoffset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 72.1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi TRUE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "none"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ param             : num(0) 
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ initial          : NULL
##   .. .. ..$ prior            : NULL
##   .. .. ..$ param            : NULL
##   .. .. ..$ fixed            : NULL
##   .. .. ..$ link             : chr "default"
##   .. .. ..$ sn.shape.max     : num 5
##   .. .. ..$ gev.scale.xi     : num 0.1
##   .. .. ..$ control.bgev     : NULL
##   .. .. ..$ cenpoisson.I     : int [1:2] -1 -1
##   .. .. ..$ beta.censor.value: num 0
##   .. .. ..$ variant          : int 0
##   .. .. ..$ control.mix      : NULL
##   .. .. ..$ control.pom      : NULL
##   .. .. ..$ control.link     :List of 10
##   .. .. .. ..$ model   : chr "default"
##   .. .. .. ..$ order   : NULL
##   .. .. .. ..$ variant : NULL
##   .. .. .. ..$ hyper   : list()
##   .. .. .. ..$ quantile: NULL
##   .. .. .. ..$ a       : num 1
##   .. .. .. ..$ initial : NULL
##   .. .. .. ..$ fixed   : NULL
##   .. .. .. ..$ prior   : NULL
##   .. .. .. ..$ param   : NULL
##   .. .. .. ..- attr(*, "class")= chr [1:2] "ctrl_link" "inla_ctrl_object"
##   .. .. ..$ link.simple      : chr "default"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_family" "inla_ctrl_object"
##   ..$ control.inla     :List of 56
##   .. ..$ strategy                          : chr "auto"
##   .. ..$ int.strategy                      : chr "auto"
##   .. ..$ int.design                        : NULL
##   .. ..$ interpolator                      : chr "auto"
##   .. ..$ fast                              : logi TRUE
##   .. ..$ linear.correction                 : NULL
##   .. ..$ h                                 : num 0.005
##   .. ..$ dz                                : num 0.75
##   .. ..$ diff.logdens                      : num 6
##   .. ..$ print.joint.hyper                 : logi TRUE
##   .. ..$ force.diagonal                    : logi FALSE
##   .. ..$ skip.configurations               : logi TRUE
##   .. ..$ mode.known                        : logi FALSE
##   .. ..$ adjust.weights                    : logi TRUE
##   .. ..$ tolerance                         : num 0.005
##   .. ..$ tolerance.f                       : NULL
##   .. ..$ tolerance.g                       : NULL
##   .. ..$ tolerance.x                       : NULL
##   .. ..$ tolerance.step                    : num 0.001
##   .. ..$ restart                           : int 0
##   .. ..$ optimiser                         : chr "default"
##   .. ..$ verbose                           : NULL
##   .. ..$ reordering                        : chr "auto"
##   .. ..$ cpo.diff                          : NULL
##   .. ..$ npoints                           : num 9
##   .. ..$ cutoff                            : num 1e-04
##   .. ..$ adapt.hessian.mode                : NULL
##   .. ..$ adapt.hessian.max.trials          : NULL
##   .. ..$ adapt.hessian.scale               : NULL
##   .. ..$ adaptive.max                      : int 25
##   .. ..$ huge                              : logi FALSE
##   .. ..$ step.len                          : num 0
##   .. ..$ stencil                           : int 5
##   .. ..$ lincomb.derived.correlation.matrix: logi FALSE
##   .. ..$ diagonal                          : num 0
##   .. ..$ numint.maxfeval                   : num 1e+05
##   .. ..$ numint.relerr                     : num 1e-05
##   .. ..$ numint.abserr                     : num 1e-06
##   .. ..$ cmin                              : num -Inf
##   .. ..$ b.strategy                        : chr "keep"
##   .. ..$ step.factor                       : num -0.1
##   .. ..$ global.node.factor                : num 2
##   .. ..$ global.node.degree                : int 2147483647
##   .. ..$ stupid.search                     : logi TRUE
##   .. ..$ stupid.search.max.iter            : int 1000
##   .. ..$ stupid.search.factor              : num 1.05
##   .. ..$ control.vb                        :List of 8
##   .. .. ..$ enable          : chr "auto"
##   .. .. ..$ strategy        : chr [1:2] "mean" "variance"
##   .. .. ..$ verbose         : logi TRUE
##   .. .. ..$ iter.max        : num 25
##   .. .. ..$ emergency       : num 25
##   .. .. ..$ f.enable.limit  : num [1:4] 30 25 1024 768
##   .. .. ..$ hessian.update  : num 2
##   .. .. ..$ hessian.strategy: chr [1:4] "default" "full" "partial" "diagonal"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_vb" "inla_ctrl_object"
##   .. ..$ num.gradient                      : chr "central"
##   .. ..$ num.hessian                       : chr "central"
##   .. ..$ optimise.strategy                 : chr "smart"
##   .. ..$ use.directions                    : logi TRUE
##   .. ..$ constr.marginal.diagonal          : num 1.49e-08
##   .. ..$ improved.simplified.laplace       : logi FALSE
##   .. ..$ parallel.linesearch               : logi FALSE
##   .. ..$ compute.initial.values            : logi TRUE
##   .. ..$ hessian.correct.skewness.only     : logi TRUE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_inla" "inla_ctrl_object"
##   ..$ control.fixed    :List of 10
##   .. ..$ cdf                   : NULL
##   .. ..$ quantiles             : NULL
##   .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ mean                  : num 0
##   .. ..$ mean.intercept        : num 0
##   .. ..$ prec                  : num 0.001
##   .. ..$ prec.intercept        : num 0
##   .. ..$ compute               : logi TRUE
##   .. ..$ correlation.matrix    : logi FALSE
##   .. ..$ remove.names          : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_fixed" "inla_ctrl_object"
##   ..$ control.mode     :List of 5
##   .. ..$ result : NULL
##   .. ..$ theta  : NULL
##   .. ..$ x      : NULL
##   .. ..$ restart: logi FALSE
##   .. ..$ fixed  : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_mode" "inla_ctrl_object"
##   ..$ control.expert   :List of 6
##   .. ..$ cpo.manual            : logi FALSE
##   .. ..$ cpo.idx               : num -1
##   .. ..$ disable.gaussian.check: logi FALSE
##   .. ..$ jp                    : NULL
##   .. ..$ dot.product.gain      : logi FALSE
##   .. ..$ globalconstr          :List of 2
##   .. .. ..$ A: NULL
##   .. .. ..$ e: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_expert" "inla_ctrl_object"
##   ..$ control.lincomb  :List of 1
##   .. ..$ verbose: logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lincomb" "inla_ctrl_object"
##   ..$ control.update   :List of 1
##   .. ..$ result: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_update" "inla_ctrl_object"
##   ..$ control.lp.scale :List of 1
##   .. ..$ hyper:List of 100
##   .. .. ..$ theta1  :List of 11
##   .. .. .. ..$ hyperid           : num 103001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta2  :List of 11
##   .. .. .. ..$ hyperid           : num 103002
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta3  :List of 11
##   .. .. .. ..$ hyperid           : num 103003
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta4  :List of 11
##   .. .. .. ..$ hyperid           : num 103004
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta5  :List of 11
##   .. .. .. ..$ hyperid           : num 103005
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta6  :List of 11
##   .. .. .. ..$ hyperid           : num 103006
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta7  :List of 11
##   .. .. .. ..$ hyperid           : num 103007
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta8  :List of 11
##   .. .. .. ..$ hyperid           : num 103008
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta9  :List of 11
##   .. .. .. ..$ hyperid           : num 103009
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta10 :List of 11
##   .. .. .. ..$ hyperid           : num 103010
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta11 :List of 11
##   .. .. .. ..$ hyperid           : num 103011
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta12 :List of 11
##   .. .. .. ..$ hyperid           : num 103012
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta13 :List of 11
##   .. .. .. ..$ hyperid           : num 103013
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta14 :List of 11
##   .. .. .. ..$ hyperid           : num 103014
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta15 :List of 11
##   .. .. .. ..$ hyperid           : num 103015
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta16 :List of 11
##   .. .. .. ..$ hyperid           : num 103016
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta17 :List of 11
##   .. .. .. ..$ hyperid           : num 103017
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta18 :List of 11
##   .. .. .. ..$ hyperid           : num 103018
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta19 :List of 11
##   .. .. .. ..$ hyperid           : num 103019
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta20 :List of 11
##   .. .. .. ..$ hyperid           : num 103020
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta21 :List of 11
##   .. .. .. ..$ hyperid           : num 103021
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta22 :List of 11
##   .. .. .. ..$ hyperid           : num 103022
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta23 :List of 11
##   .. .. .. ..$ hyperid           : num 103023
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta24 :List of 11
##   .. .. .. ..$ hyperid           : num 103024
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta25 :List of 11
##   .. .. .. ..$ hyperid           : num 103025
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta26 :List of 11
##   .. .. .. ..$ hyperid           : num 103026
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta27 :List of 11
##   .. .. .. ..$ hyperid           : num 103027
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta28 :List of 11
##   .. .. .. ..$ hyperid           : num 103028
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta29 :List of 11
##   .. .. .. ..$ hyperid           : num 103029
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta30 :List of 11
##   .. .. .. ..$ hyperid           : num 103030
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta31 :List of 11
##   .. .. .. ..$ hyperid           : num 103031
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta32 :List of 11
##   .. .. .. ..$ hyperid           : num 103032
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta33 :List of 11
##   .. .. .. ..$ hyperid           : num 103033
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta34 :List of 11
##   .. .. .. ..$ hyperid           : num 103034
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta35 :List of 11
##   .. .. .. ..$ hyperid           : num 103035
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta36 :List of 11
##   .. .. .. ..$ hyperid           : num 103036
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta37 :List of 11
##   .. .. .. ..$ hyperid           : num 103037
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta38 :List of 11
##   .. .. .. ..$ hyperid           : num 103038
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta39 :List of 11
##   .. .. .. ..$ hyperid           : num 103039
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta40 :List of 11
##   .. .. .. ..$ hyperid           : num 103040
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta41 :List of 11
##   .. .. .. ..$ hyperid           : num 103041
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta42 :List of 11
##   .. .. .. ..$ hyperid           : num 103042
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta43 :List of 11
##   .. .. .. ..$ hyperid           : num 103043
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta44 :List of 11
##   .. .. .. ..$ hyperid           : num 103044
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta45 :List of 11
##   .. .. .. ..$ hyperid           : num 103045
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta46 :List of 11
##   .. .. .. ..$ hyperid           : num 103046
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta47 :List of 11
##   .. .. .. ..$ hyperid           : num 103047
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta48 :List of 11
##   .. .. .. ..$ hyperid           : num 103048
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta49 :List of 11
##   .. .. .. ..$ hyperid           : num 103049
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta50 :List of 11
##   .. .. .. ..$ hyperid           : num 103050
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta51 :List of 11
##   .. .. .. ..$ hyperid           : num 103051
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta52 :List of 11
##   .. .. .. ..$ hyperid           : num 103052
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta53 :List of 11
##   .. .. .. ..$ hyperid           : num 103053
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta54 :List of 11
##   .. .. .. ..$ hyperid           : num 103054
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta55 :List of 11
##   .. .. .. ..$ hyperid           : num 103055
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta56 :List of 11
##   .. .. .. ..$ hyperid           : num 103056
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta57 :List of 11
##   .. .. .. ..$ hyperid           : num 103057
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta58 :List of 11
##   .. .. .. ..$ hyperid           : num 103058
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta59 :List of 11
##   .. .. .. ..$ hyperid           : num 103059
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta60 :List of 11
##   .. .. .. ..$ hyperid           : num 103060
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta61 :List of 11
##   .. .. .. ..$ hyperid           : num 103061
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta62 :List of 11
##   .. .. .. ..$ hyperid           : num 103062
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta63 :List of 11
##   .. .. .. ..$ hyperid           : num 103063
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta64 :List of 11
##   .. .. .. ..$ hyperid           : num 103064
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta65 :List of 11
##   .. .. .. ..$ hyperid           : num 103065
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta66 :List of 11
##   .. .. .. ..$ hyperid           : num 103066
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta67 :List of 11
##   .. .. .. ..$ hyperid           : num 103067
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta68 :List of 11
##   .. .. .. ..$ hyperid           : num 103068
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta69 :List of 11
##   .. .. .. ..$ hyperid           : num 103069
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta70 :List of 11
##   .. .. .. ..$ hyperid           : num 103070
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta71 :List of 11
##   .. .. .. ..$ hyperid           : num 103071
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta72 :List of 11
##   .. .. .. ..$ hyperid           : num 103072
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta73 :List of 11
##   .. .. .. ..$ hyperid           : num 103073
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta74 :List of 11
##   .. .. .. ..$ hyperid           : num 103074
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta75 :List of 11
##   .. .. .. ..$ hyperid           : num 103075
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta76 :List of 11
##   .. .. .. ..$ hyperid           : num 103076
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta77 :List of 11
##   .. .. .. ..$ hyperid           : num 103077
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta78 :List of 11
##   .. .. .. ..$ hyperid           : num 103078
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta79 :List of 11
##   .. .. .. ..$ hyperid           : num 103079
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta80 :List of 11
##   .. .. .. ..$ hyperid           : num 103080
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta81 :List of 11
##   .. .. .. ..$ hyperid           : num 103081
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta82 :List of 11
##   .. .. .. ..$ hyperid           : num 103082
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta83 :List of 11
##   .. .. .. ..$ hyperid           : num 103083
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta84 :List of 11
##   .. .. .. ..$ hyperid           : num 103084
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta85 :List of 11
##   .. .. .. ..$ hyperid           : num 103085
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta86 :List of 11
##   .. .. .. ..$ hyperid           : num 103086
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta87 :List of 11
##   .. .. .. ..$ hyperid           : num 103087
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta88 :List of 11
##   .. .. .. ..$ hyperid           : num 103088
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta89 :List of 11
##   .. .. .. ..$ hyperid           : num 103089
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta90 :List of 11
##   .. .. .. ..$ hyperid           : num 103090
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta91 :List of 11
##   .. .. .. ..$ hyperid           : num 103091
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta92 :List of 11
##   .. .. .. ..$ hyperid           : num 103092
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta93 :List of 11
##   .. .. .. ..$ hyperid           : num 103093
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta94 :List of 11
##   .. .. .. ..$ hyperid           : num 103094
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta95 :List of 11
##   .. .. .. ..$ hyperid           : num 103095
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta96 :List of 11
##   .. .. .. ..$ hyperid           : num 103096
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta97 :List of 11
##   .. .. .. ..$ hyperid           : num 103097
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta98 :List of 11
##   .. .. .. ..$ hyperid           : num 103098
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta99 :List of 11
##   .. .. .. ..$ hyperid           : num 103099
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. [list output truncated]
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lp_scale" "inla_ctrl_object"
##   ..$ control.pardiso  :List of 4
##   .. ..$ verbose            : logi FALSE
##   .. ..$ debug              : logi FALSE
##   .. ..$ parallel.reordering: logi TRUE
##   .. ..$ nrhs               : num -1
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_pardiso" "inla_ctrl_object"
##   ..$ only.hyperparam  : logi FALSE
##   ..$ inla.call        : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/inla.mkl.run"
##   ..$ num.threads      : chr "7:1"
##   ..$ keep             : logi FALSE
##   ..$ silent           : logi TRUE
##   ..$ inla.mode        : chr "compact"
##   ..$ safe             : logi TRUE
##   ..$ debug            : logi FALSE
##   ..$ .parent.frame    :<environment: R_GlobalEnv> 
##  $ call                       : chr [1:14] "inla.core(formula = formula, family = family, contrasts = contrasts, " "    data = data, quantiles = quantiles, E = E, offset = offset, " "    scale = scale, weights = weights, Ntrials = Ntrials, strata = strata, " "    lp.scale = lp.scale, link.covariates = link.covariates, verbose = verbose, " ...
##  $ model.matrix               :Formal class 'dsparseModelMatrix' [package "MatrixModels"] with 8 slots
##   .. ..@ i        : int(0) 
##   .. ..@ p        : int 0
##   .. ..@ Dim      : int [1:2] 86029 0
##   .. ..@ Dimnames :List of 2
##   .. .. ..$ : chr [1:86029] "1" "2" "3" "4" ...
##   .. .. ..$ : NULL
##   .. ..@ x        : num(0) 
##   .. ..@ factors  : list()
##   .. ..@ assign   : int(0) 
##   .. ..@ contrasts: Named list()
##  $ bru_iinla                  :List of 5
##   ..$ log       :Class 'bru_log'  hidden list of 2
##   .. ..$ log      : chr [1:7] "2024-04-25 22:48:17.308512: iinla: Evaluate component inputs" "2024-04-25 22:48:17.346535: iinla: Evaluate component linearisations" "2024-04-25 22:48:20.216109: iinla: Evaluate component simplifications" "2024-04-25 22:48:23.004897: iinla: Evaluate predictor linearisation" ...
##   .. ..$ bookmarks: Named int 0
##   .. .. ..- attr(*, "names")= chr "iinla"
##   ..$ states    :List of 1
##   .. ..$ :List of 2
##   .. .. ..$ Intercept: num 0
##   .. .. ..$ field    : num [1:86028] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ inla_stack:List of 3
##   .. ..$ A      :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:101696] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ p       : int [1:86030] 0 14534 14538 14545 14545 14545 14545 14546 14547 14549 ...
##   .. .. .. ..@ Dim     : int [1:2] 14534 86029
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:101696] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ data   :List of 5
##   .. .. ..$ data :'data.frame':  14534 obs. of  6 variables:
##   .. .. .. ..$ BRU.response: num [1:14534] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ BRU.E       : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.Ntrials : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.weights : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.scale   : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.offset  : num [1:14534] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. ..$ nrow : int 14534
##   .. .. ..$ ncol : Named int [1:6] 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:6] "BRU.response" "BRU.E" "BRU.Ntrials" "BRU.weights" ...
##   .. .. ..$ names:List of 6
##   .. .. .. ..$ BRU.response: chr "BRU.response"
##   .. .. .. ..$ BRU.E       : chr "BRU.E"
##   .. .. .. ..$ BRU.Ntrials : chr "BRU.Ntrials"
##   .. .. .. ..$ BRU.weights : chr "BRU.weights"
##   .. .. .. ..$ BRU.scale   : chr "BRU.scale"
##   .. .. .. ..$ BRU.offset  : chr "BRU.offset"
##   .. .. ..$ index:List of 1
##   .. .. .. ..$ : num [1:14534] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..$ effects:List of 5
##   .. .. ..$ data :'data.frame':  86029 obs. of  6 variables:
##   .. .. .. ..$ Intercept      : num [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.group: int [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.repl : int [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ field          : int [1:86029] NA 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..$ field.group    : int [1:86029] NA 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ field.repl     : int [1:86029] NA 1 1 1 1 1 1 1 1 1 ...
##   .. .. ..$ nrow : int 86029
##   .. .. ..$ ncol : Named int [1:6] 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:6] "Intercept" "Intercept.group" "Intercept.repl" "field" ...
##   .. .. ..$ names:List of 6
##   .. .. .. ..$ Intercept      : chr "Intercept"
##   .. .. .. ..$ Intercept.group: chr "Intercept.group"
##   .. .. .. ..$ Intercept.repl : chr "Intercept.repl"
##   .. .. .. ..$ field          : chr "field"
##   .. .. .. ..$ field.group    : chr "field.group"
##   .. .. .. ..$ field.repl     : chr "field.repl"
##   .. .. ..$ index:List of 2
##   .. .. .. ..$ : int 1
##   .. .. .. ..$ : int [1:86028] 2 3 4 5 6 7 8 9 10 11 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..- attr(*, "class")= chr "inla.data.stack"
##   ..$ track     :'data.frame':   86034 obs. of  6 variables:
##   .. ..$ effect           : chr [1:86034] "Intercept" "field" "field" "field" ...
##   .. ..$ index            : num [1:86034] 1 1 2 3 4 5 6 7 8 9 ...
##   .. ..$ iteration        : num [1:86034] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ mode             : num [1:86034] 21.76 -1.21 -1.96 1.58 1.65 ...
##   .. ..$ sd               : num [1:86034] 4.05 7.18 6.81 7.64 7.89 ...
##   .. ..$ new_linearisation: num [1:86034] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ timings   :'data.frame':   2 obs. of  3 variables:
##   .. ..$ Task     : chr [1:2] "Preprocess" "Run inla()"
##   .. ..$ Iteration: num [1:2] 1 1
##   .. ..$ Time     : 'difftime' num [1:2] 1.15128980080287 1.09260019461314
##   .. .. ..- attr(*, "units")= chr "mins"
##  $ bru_timings                :'data.frame': 3 obs. of  3 variables:
##   ..$ Task     : chr [1:3] "Preprocess" "Preprocess" "Run inla()"
##   ..$ Iteration: num [1:3] 0 1 1
##   ..$ Time     : 'difftime' num [1:3] 0.0417144298553467 69.077388048172 65.5560116767883
##   .. ..- attr(*, "units")= chr "secs"
##  $ bru_info                   :List of 6
##   ..$ method         : chr "bru"
##   ..$ model          :List of 2
##   .. ..$ effects:List of 2
##   .. .. ..$ Intercept:List of 12
##   .. .. .. ..$ label       : chr "Intercept"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : num 1
##   .. .. .. .. .. ..$ label   : chr "Intercept"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x59ebaed95b08> 
##   .. .. .. ..$ fcall       : language "f"(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ field    :List of 12
##   .. .. .. ..$ label       : chr "field"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol loc
##   .. .. .. .. .. ..$ label   : chr "field"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ model:List of 20
##   .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ rspde.order: int 2
##   .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 11
##   .. .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. .. ..$ matrices_less       : num [1:94764] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ matrices_full       : num [1:207848] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ characters:List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. ..$ model         :List of 20
##   .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. ..$ rspde.order: int 2
##   .. .. .. .. .. .. .. .. ..$ doubles   :List of 11
##   .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. ..$ matrices_less       : num [1:94764] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ matrices_full       : num [1:207848] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. ..$ characters:List of 5
##   .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. ..$ matrices  :List of 2
##   .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. ..$ type          : chr "cgeneric"
##   .. .. .. .. ..$ n             : num 21507
##   .. .. .. .. ..$ values        : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "field.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : language data_rspde_bru_stat[["repl"]]
##   .. .. .. .. .. ..$ label   : chr "field.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 4
##   .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : int 4
##   .. .. .. .. ..$ values        : int [1:4] 1 2 3 4
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x59ebaed77028> 
##   .. .. .. ..$ fcall       : language "f"(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     :List of 1
##   .. .. .. .. .. .. .. .. ..$ model:List of 20
##   .. .. .. .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ rspde.order: int 2
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 11
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices_less       : num [1:94764] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices_full       : num [1:207848] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ characters:List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 4
##   .. .. .. .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 21507
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 21507
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 86028
##   .. .. .. .. .. .. ..$ n_inla           : num 86028
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 86028 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 86028
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..- attr(*, "class")= chr [1:2] "component_list" "list"
##   .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..$ formula:Class 'formula'  language BRU_response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..- attr(*, "class")= chr [1:2] "bru_model" "list"
##   ..$ lhoods         :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ family        : chr "gaussian"
##   .. .. ..$ formula       :Class 'formula'  language speed ~ .
##   .. .. .. .. ..- attr(*, ".Environment")=<environment: 0x59ebb92c6fc0> 
##   .. .. ..$ response_data :List of 4
##   .. .. .. ..$ BRU_response: num [1:14534] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ BRU_E       : num 1
##   .. .. .. ..$ BRU_Ntrials : num 1
##   .. .. .. ..$ BRU_scale   : num 1
##   .. .. ..$ data          :List of 8
##   .. .. .. ..$ speed            : num [1:14534] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ SpeedLimit       : num [1:14534] -0.101 -0.617 -0.617 -0.617 -0.927 ...
##   .. .. .. ..$ .coord_x         : num [1:14534] -122 -122 -122 -122 -122 ...
##   .. .. .. ..$ .coord_y         : num [1:14534] 37.8 37.8 37.8 37.8 37.8 ...
##   .. .. .. ..$ .edge_number     : num [1:14534] 1 4 6 6 9 14 14 14 18 20 ...
##   .. .. .. ..$ .distance_on_edge: num [1:14534] 0.437 0.144 0.252 0.658 0.601 ...
##   .. .. .. ..$ .group           : chr [1:14534] "1" "1" "1" "1" ...
##   .. .. .. ..$ loc              : num [1:14534, 1:2] 1 4 6 6 9 14 14 14 18 20 ...
##   .. .. .. ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##   .. .. ..$ E             : num 1
##   .. .. ..$ Ntrials       : num 1
##   .. .. ..$ weights       : num 1
##   .. .. ..$ scale         : num 1
##   .. .. ..$ samplers      : NULL
##   .. .. ..$ linear        : logi TRUE
##   .. .. ..$ expr          : NULL
##   .. .. ..$ response      : chr "BRU_response"
##   .. .. ..$ inla.family   : chr "gaussian"
##   .. .. ..$ domain        : NULL
##   .. .. ..$ used          :List of 2
##   .. .. .. ..$ effect: chr [1:2] "Intercept" "field"
##   .. .. .. ..$ latent: chr(0) 
##   .. .. .. ..- attr(*, "class")= chr "bru_used"
##   .. .. ..$ allow_combine : logi TRUE
##   .. .. ..$ control.family: NULL
##   .. .. ..- attr(*, "class")= chr [1:2] "bru_like" "list"
##   .. ..- attr(*, "class")= chr [1:2] "bru_like_list" "list"
##   ..$ options        :List of 14
##   .. ..$ bru_verbose      : num 0
##   .. ..$ bru_verbose_store: num Inf
##   .. ..$ bru_max_iter     : num 1
##   .. ..$ bru_run          : logi TRUE
##   .. ..$ bru_int_args     :List of 3
##   .. .. ..$ method: chr "stable"
##   .. .. ..$ nsub1 : num 30
##   .. .. ..$ nsub2 : num 9
##   .. ..$ bru_method       :List of 6
##   .. .. ..$ taylor         : chr "pandemic"
##   .. .. ..$ search         : chr "all"
##   .. .. ..$ factor         : num 1.62
##   .. .. ..$ rel_tol        : num 0.1
##   .. .. ..$ max_step       : num 2
##   .. .. ..$ line_opt_method: chr "onestep"
##   .. ..$ bru_compress_cp  : logi TRUE
##   .. ..$ bru_debug        : logi FALSE
##   .. ..$ E                : num 1
##   .. ..$ Ntrials          : num 1
##   .. ..$ control.compute  :List of 3
##   .. .. ..$ config: logi TRUE
##   .. .. ..$ dic   : logi TRUE
##   .. .. ..$ waic  : logi TRUE
##   .. ..$ control.inla     :List of 1
##   .. .. ..$ int.strategy: chr "auto"
##   .. ..$ control.fixed    :List of 1
##   .. .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ verbose          : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "bru_options" "list"
##   ..$ inlabru_version: Named chr "2.10.1.9004"
##   .. ..- attr(*, "names")= chr "version"
##   ..$ INLA_version   : Named chr "24.04.22"
##   .. ..- attr(*, "names")= chr "version"
##   ..- attr(*, "class")= chr [1:2] "bru_info" "list"
##  - attr(*, "class")= chr [1:3] "bru" "iinla" "inla"
stat.time.fin <- Sys.time()
print(stat.time.fin - stat.time.ini)
## Time difference of 2.338521 mins
summary(rspde_fit_stat)
## inlabru version: 2.10.1.9004
## INLA version: 24.04.22
## Components:
## Intercept: main = linear(1), group = exchangeable(1L), replicate = iid(1L)
## field: main = cgeneric(loc), group = exchangeable(1L), replicate = iid(data_rspde_bru_stat[["repl"]])
## Likelihoods:
##   Family: 'gaussian'
##     Data class: 'metric_graph_data', 'list'
##     Predictor: speed ~ .
## Time used:
##     Pre = 0.399, Running = 58.1, Post = 6.96, Total = 65.5 
## Fixed effects:
##             mean    sd 0.025quant 0.5quant 0.975quant   mode kld
## Intercept 21.755 4.054     13.796   21.755     29.711 21.755   0
## 
## Random effects:
##   Name     Model
##     field CGeneric
## 
## Model hyperparameters:
##                                           mean    sd 0.025quant 0.5quant
## Precision for the Gaussian observations  0.012 0.000      0.012    0.012
## Theta1 for field                         4.640 0.034      4.575    4.639
## Theta2 for field                         1.489 0.074      1.332    1.493
## Theta3 for field                        -3.436 0.067     -3.580   -3.431
##                                         0.975quant   mode
## Precision for the Gaussian observations      0.013  0.012
## Theta1 for field                             4.709  4.637
## Theta2 for field                             1.620  1.512
## Theta3 for field                            -3.320 -3.409
## 
## Deviance Information Criterion (DIC) ...............: 108284.14
## Deviance Information Criterion (DIC, saturated) ....: 17726.62
## Effective number of parameters .....................: 3186.67
## 
## Watanabe-Akaike information criterion (WAIC) ...: 108454.36
## Effective number of parameters .................: 2795.72
## 
## Marginal log-Likelihood:  -55612.77 
##  is computed 
## Posterior summaries for the linear predictor and the fitted values are computed
## (Posterior marginals needs also 'control.compute=list(return.marginals.predictor=TRUE)')
fit.rspde = rspde.result(rspde_fit_stat, "field", rspde_model_stat)
summary(fit.rspde)
##                mean         sd 0.025quant    0.5quant  0.975quant        mode
## std.dev 103.6080000 3.50486000 97.0955000 103.4640000 110.8510000 103.0820000
## range     4.4449000 0.32135400  3.7963400   4.4564100   5.0493100   4.5140900
## nu        0.0468985 0.00298471  0.0407161   0.0470518   0.0523261   0.0478106

1.2 Nonstationary model

  • Observe that we are using the computed parameters from the stationary model as initial values for the nonstationary models.
nonstat.time.ini <- Sys.time()
################################################################################
############################# NON STATIONARY MODEL #############################
################################################################################

B.sigma = cbind(0, 1, 0, mesh$SpeedLimit, 0)
B.range = cbind(0, 0, 1, 0, mesh$SpeedLimit)
init.vec.theta = c(fit.rspde$summary.log.std.dev$mode, 
                   fit.rspde$summary.log.range$mode, 
                   rep(0, (ncol(B.sigma)-3)))

rspde_model_nonstat <- rspde.metric_graph(sf_graph,
                                          start.theta = init.vec.theta,
                                          theta.prior.mean = init.vec.theta,
                                          B.sigma = B.sigma,
                                          B.range = B.range,
                                          parameterization = "matern",
                                          nu.upper.bound = 1.5)
str(rspde_model_nonstat)
## List of 20
##  $ f                   :List of 3
##   ..$ model   : chr "cgeneric"
##   ..$ n       : int 21507
##   ..$ cgeneric:List of 5
##   .. ..$ model: chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. ..$ n    : int 21507
##   .. ..$ debug: logi FALSE
##   .. ..$ data :List of 5
##   .. .. ..$ ints      :List of 6
##   .. .. .. ..$ n          : int 21507
##   .. .. .. ..$ debug      : int 0
##   .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. ..$ rspde_order: int 2
##   .. .. .. ..$ matern_par : int 1
##   .. .. ..$ doubles   :List of 9
##   .. .. .. ..$ d                   : num 1
##   .. .. .. ..$ nu_upper_bound      : num 1.5
##   .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. ..$ start.theta         : num [1:4] 4.64 1.51 0 0
##   .. .. .. ..$ theta.prior.mean    : num [1:4] 4.64 1.51 0 0
##   .. .. ..$ characters:List of 4
##   .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. ..$ matrices  :List of 4
##   .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. ..$ B_tau           : num [1:35847] 7169 5 -1.15 -1 0.75 ...
##   .. .. .. ..$ B_kappa         : num [1:35847] 7169 5 0.896 0 -1 ...
##   .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. ..$ smatrices :List of 2
##   .. .. .. ..$ C: num [1:21510] 7169 7169 7169 0 1 ...
##   .. .. .. ..$ G: num [1:74640] 7169 7169 24879 0 1 ...
##   .. ..- attr(*, "class")= chr "inla.cgeneric"
##  $ cgeneric_type       : chr "general"
##  $ theta.prior.mean    : num [1:4] 4.64 1.51 0 0
##  $ prior.nu            :List of 4
##   ..$ loglocation: num -0.288
##   ..$ mean       : num 0.75
##   ..$ prec       : num 3
##   ..$ logscale   : num 1
##  $ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##  $ start.nu            : num 0.75
##  $ integer.nu          : logi FALSE
##  $ start.theta         : num [1:4] 4.64 1.51 0 0
##  $ stationary          : logi FALSE
##  $ rspde.order         : num 2
##  $ dim                 : num 1
##  $ est_nu              : logi TRUE
##  $ nu.upper.bound      : num 1.5
##  $ prior.nu.dist       : chr "lognormal"
##  $ debug               : logi FALSE
##  $ type.rational.approx: chr "chebfun"
##  $ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##  $ fem_mesh            :List of 5
##   ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. ..@ factors : list()
##   ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. ..@ factors : list()
##   ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. ..@ factors : list()
##   ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. ..@ factors : list()
##   ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. ..@ factors : list()
##  $ parameterization    : chr "matern"
##  $ n.spde              : int 7169
##  - attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
data_rspde_bru_nonstat <- graph_data_rspde(rspde_model_nonstat,
                                           repl = ".all",
                                           loc_name = "loc")
str(data_rspde_bru_nonstat)
## List of 4
##  $ data :List of 8
##   ..$ speed            : num [1:14534] 0 12.9 24.1 32.2 0 ...
##   ..$ SpeedLimit       : num [1:14534] -0.101 -0.617 -0.617 -0.617 -0.927 ...
##   ..$ .coord_x         : num [1:14534] -122 -122 -122 -122 -122 ...
##   ..$ .coord_y         : num [1:14534] 37.8 37.8 37.8 37.8 37.8 ...
##   ..$ .edge_number     : num [1:14534] 1 4 6 6 9 14 14 14 18 20 ...
##   ..$ .distance_on_edge: num [1:14534] 0.437 0.144 0.252 0.658 0.601 ...
##   ..$ .group           : chr [1:14534] "1" "1" "1" "1" ...
##   ..$ loc              : num [1:14534, 1:2] 1 4 6 6 9 14 14 14 18 20 ...
##   ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##  $ index:List of 3
##   ..$ field      : int [1:28676] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ field.group: int [1:28676] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ field.repl : int [1:28676] 1 1 1 1 1 1 1 1 1 1 ...
##   ..- attr(*, "class")= chr [1:2] "inla_rspde_index" "list"
##   ..- attr(*, "rspde.order")= num 0
##   ..- attr(*, "integer_nu")= logi TRUE
##   ..- attr(*, "n.mesh")= int 7169
##   ..- attr(*, "name")= chr "field"
##   ..- attr(*, "n.group")= int 1
##   ..- attr(*, "n.repl")= int 4
##  $ repl : chr [1:14534] "1" "1" "1" "1" ...
##  $ basis:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. ..@ i       : int [1:87204] 0 555 1905 1906 0 1050 1471 1472 1473 1905 ...
##   .. ..@ p       : int [1:86029] 0 4 11 11 11 11 12 13 15 15 ...
##   .. ..@ Dim     : int [1:2] 14534 86028
##   .. ..@ Dimnames:List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : NULL
##   .. ..@ x       : num [1:87204] 0.563 0.0495 0.3595 0.7935 0.437 ...
##   .. ..@ factors : list()
cmp_nonstat = speed ~ -1 +
  Intercept(1) +
  field(loc, model = rspde_model_nonstat,
        replicate = data_rspde_bru_nonstat[["repl"]])

rspde_fit_nonstat <-
  bru(cmp_nonstat,
      data = data_rspde_bru_nonstat[["data"]],
      family = "gaussian",
      options = list(verbose = FALSE)
  )
str(rspde_fit_nonstat)
## List of 56
##  $ names.fixed                : chr "Intercept"
##  $ summary.fixed              :'data.frame': 1 obs. of  7 variables:
##   ..$ mean      : num 20.6
##   ..$ sd        : num 0.865
##   ..$ 0.025quant: num 18.9
##   ..$ 0.5quant  : num 20.6
##   ..$ 0.975quant: num 22.3
##   ..$ mode      : num 20.6
##   ..$ kld       : num 0
##  $ marginals.fixed            :List of 1
##   ..$ Intercept: num [1:43, 1:2] 16.9 17.4 17.9 18.6 18.9 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ summary.lincomb            :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb          : NULL
##  $ size.lincomb               : NULL
##  $ summary.lincomb.derived    :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb.derived  : NULL
##  $ size.lincomb.derived       : NULL
##  $ mlik                       : num [1:2, 1] -55671 -55665
##   ..- attr(*, "dimnames")=List of 2
##   .. ..$ : chr [1:2] "log marginal-likelihood (integration)" "log marginal-likelihood (Gaussian)"
##   .. ..$ : NULL
##  $ cpo                        :List of 3
##   ..$ cpo    : logi(0) 
##   ..$ pit    : logi(0) 
##   ..$ failure: logi(0) 
##  $ gcpo                       :List of 5
##   ..$ gcpo  : NULL
##   ..$ kld   : NULL
##   ..$ mean  : NULL
##   ..$ sd    : NULL
##   ..$ groups: NULL
##  $ po                         :List of 1
##   ..$ po: num [1:14534] 0.0105 0.0312 0.0356 0.033 0.0206 ...
##  $ waic                       :List of 4
##   ..$ waic       : num 108528
##   ..$ p.eff      : num 2658
##   ..$ local.waic : num [1:14534] 10.18 7.56 6.9 7.31 9.26 ...
##   ..$ local.p.eff: num [1:14534] 0.538 0.313 0.118 0.244 0.748 ...
##  $ residuals                  :List of 1
##   ..$ deviance.residuals: num [1:14534] -1.815 -0.938 -0.696 0.848 -1.423 ...
##  $ model.random               : chr "CGeneric"
##  $ summary.random             :List of 1
##   ..$ field:'data.frame':    86028 obs. of  8 variables:
##   .. ..$ ID        : num [1:86028] 1 2 3 4 5 6 7 8 9 10 ...
##   .. ..$ mean      : num [1:86028] 0.013 0.013 0.0309 0.0319 0.0307 ...
##   .. ..$ sd        : num [1:86028] 0.434 0.417 0.333 0.336 0.331 ...
##   .. ..$ 0.025quant: num [1:86028] -0.838 -0.804 -0.621 -0.627 -0.617 ...
##   .. ..$ 0.5quant  : num [1:86028] 0.013 0.013 0.0309 0.0319 0.0307 ...
##   .. ..$ 0.975quant: num [1:86028] 0.864 0.831 0.683 0.691 0.679 ...
##   .. ..$ mode      : num [1:86028] 0.013 0.013 0.0309 0.0319 0.0307 ...
##   .. ..$ kld       : num [1:86028] 0 0 0 0 0 0 0 0 0 0 ...
##  $ marginals.random           :List of 1
##   ..$ field:List of 86028
##   .. ..$ index.1    : num [1:43, 1:2] -1.839 -1.602 -1.329 -0.997 -0.838 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.2    : num [1:43, 1:2] -1.766 -1.538 -1.276 -0.957 -0.804 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.3    : num [1:43, 1:2] -1.388 -1.206 -0.997 -0.743 -0.621 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.4    : num [1:43, 1:2] -1.402 -1.219 -1.007 -0.75 -0.627 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.5    : num [1:43, 1:2] -1.38 -1.199 -0.991 -0.739 -0.617 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.6    : num [1:43, 1:2] -1.547 -1.344 -1.111 -0.827 -0.691 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.7    : num [1:43, 1:2] -1.471 -1.278 -1.056 -0.786 -0.656 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.8    : num [1:43, 1:2] -1.294 -1.124 -0.929 -0.692 -0.578 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.9    : num [1:43, 1:2] -1.682 -1.46 -1.206 -0.896 -0.748 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.10   : num [1:43, 1:2] -1.815 -1.576 -1.3 -0.965 -0.804 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.11   : num [1:43, 1:2] -1.059 -0.923 -0.766 -0.576 -0.485 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.12   : num [1:43, 1:2] -1.021 -0.89 -0.739 -0.555 -0.467 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.13   : num [1:43, 1:2] -2.24 -1.95 -1.63 -1.23 -1.04 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.14   : num [1:43, 1:2] -2.24 -1.95 -1.63 -1.23 -1.04 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.15   : num [1:43, 1:2] -2.25 -1.97 -1.64 -1.24 -1.04 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.16   : num [1:43, 1:2] -2.26 -1.97 -1.64 -1.24 -1.05 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.17   : num [1:43, 1:2] -2.26 -1.97 -1.64 -1.24 -1.05 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.18   : num [1:43, 1:2] -2.128 -1.858 -1.546 -1.167 -0.986 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.19   : num [1:43, 1:2] -2.18 -1.9 -1.58 -1.19 -1.01 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.20   : num [1:43, 1:2] -2.121 -1.852 -1.541 -1.164 -0.983 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.21   : num [1:43, 1:2] -2.01 -1.754 -1.46 -1.103 -0.931 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.22   : num [1:43, 1:2] -1.967 -1.717 -1.429 -1.079 -0.912 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.23   : num [1:43, 1:2] -1.71 -1.493 -1.243 -0.939 -0.794 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.24   : num [1:43, 1:2] -1.769 -1.544 -1.286 -0.971 -0.82 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.25   : num [1:43, 1:2] -1.543 -1.347 -1.12 -0.845 -0.713 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.26   : num [1:43, 1:2] -1.522 -1.328 -1.105 -0.834 -0.704 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.27   : num [1:43, 1:2] -1.692 -1.477 -1.23 -0.929 -0.784 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.28   : num [1:43, 1:2] -1.662 -1.451 -1.207 -0.912 -0.77 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.29   : num [1:43, 1:2] -1.704 -1.487 -1.238 -0.935 -0.789 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.30   : num [1:43, 1:2] -1.675 -1.462 -1.216 -0.918 -0.775 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.31   : num [1:43, 1:2] -1.866 -1.629 -1.356 -1.025 -0.866 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.32   : num [1:43, 1:2] -1.775 -1.55 -1.29 -0.974 -0.823 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.33   : num [1:43, 1:2] -1.733 -1.513 -1.259 -0.951 -0.803 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.34   : num [1:43, 1:2] -1.747 -1.525 -1.269 -0.959 -0.81 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.35   : num [1:43, 1:2] -1.715 -1.497 -1.246 -0.941 -0.795 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.36   : num [1:43, 1:2] -1.656 -1.446 -1.203 -0.908 -0.767 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.37   : num [1:43, 1:2] -1.731 -1.511 -1.258 -0.95 -0.802 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.38   : num [1:43, 1:2] -1.744 -1.522 -1.267 -0.957 -0.808 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.39   : num [1:43, 1:2] -1.774 -1.548 -1.289 -0.973 -0.822 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.40   : num [1:43, 1:2] -1.773 -1.547 -1.288 -0.973 -0.822 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.41   : num [1:43, 1:2] -1.766 -1.541 -1.283 -0.969 -0.818 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.42   : num [1:43, 1:2] -1.832 -1.599 -1.331 -1.006 -0.849 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.43   : num [1:43, 1:2] -1.549 -1.351 -1.124 -0.849 -0.716 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.44   : num [1:43, 1:2] -1.446 -1.262 -1.05 -0.792 -0.669 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.45   : num [1:43, 1:2] -1.721 -1.502 -1.251 -0.945 -0.798 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.46   : num [1:43, 1:2] -1.863 -1.626 -1.354 -1.023 -0.864 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.47   : num [1:43, 1:2] -1.82 -1.589 -1.322 -0.999 -0.844 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.48   : num [1:43, 1:2] -1.94 -1.69 -1.41 -1.07 -0.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.49   : num [1:43, 1:2] -1.914 -1.671 -1.391 -1.05 -0.887 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.50   : num [1:43, 1:2] -2.25 -1.97 -1.64 -1.24 -1.04 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.51   : num [1:43, 1:2] -2.24 -1.95 -1.63 -1.23 -1.04 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.52   : num [1:43, 1:2] -2.151 -1.878 -1.563 -1.18 -0.997 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.53   : num [1:43, 1:2] -2.101 -1.834 -1.526 -1.153 -0.973 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.54   : num [1:43, 1:2] -1.942 -1.695 -1.411 -1.066 -0.901 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.55   : num [1:43, 1:2] -1.877 -1.639 -1.364 -1.031 -0.871 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.56   : num [1:43, 1:2] -1.848 -1.614 -1.343 -1.015 -0.858 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.57   : num [1:43, 1:2] -1.758 -1.535 -1.277 -0.965 -0.815 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.58   : num [1:43, 1:2] -1.647 -1.437 -1.196 -0.903 -0.762 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.59   : num [1:43, 1:2] -2.108 -1.839 -1.531 -1.156 -0.976 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.60   : num [1:43, 1:2] -1.968 -1.718 -1.43 -1.08 -0.912 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.61   : num [1:43, 1:2] -2.142 -1.87 -1.556 -1.175 -0.992 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.62   : num [1:43, 1:2] -2.17 -1.9 -1.58 -1.19 -1.01 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.63   : num [1:43, 1:2] -2.057 -1.796 -1.495 -1.129 -0.954 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.64   : num [1:43, 1:2] -1.963 -1.713 -1.425 -1.074 -0.906 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.65   : num [1:43, 1:2] -1.96 -1.71 -1.422 -1.072 -0.905 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.66   : num [1:43, 1:2] -1.714 -1.495 -1.244 -0.938 -0.791 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.67   : num [1:43, 1:2] -1.584 -1.382 -1.149 -0.866 -0.73 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.68   : num [1:43, 1:2] -1.676 -1.463 -1.216 -0.917 -0.773 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.69   : num [1:43, 1:2] -1.661 -1.449 -1.205 -0.909 -0.767 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.70   : num [1:43, 1:2] -1.625 -1.418 -1.179 -0.889 -0.75 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.71   : num [1:43, 1:2] -1.705 -1.487 -1.236 -0.931 -0.785 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.72   : num [1:43, 1:2] -1.628 -1.42 -1.18 -0.889 -0.749 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.73   : num [1:43, 1:2] -1.318 -1.148 -0.953 -0.716 -0.603 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.74   : num [1:43, 1:2] -1.297 -1.13 -0.938 -0.705 -0.593 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.75   : num [1:43, 1:2] -1.524 -1.33 -1.106 -0.834 -0.704 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.76   : num [1:43, 1:2] -1.548 -1.351 -1.124 -0.848 -0.715 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.77   : num [1:43, 1:2] -1.456 -1.271 -1.057 -0.797 -0.672 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.78   : num [1:43, 1:2] -1.489 -1.299 -1.08 -0.814 -0.686 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.79   : num [1:43, 1:2] -1.45 -1.265 -1.052 -0.793 -0.669 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.80   : num [1:43, 1:2] -1.781 -1.555 -1.295 -0.978 -0.826 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.81   : num [1:43, 1:2] -1.6 -1.398 -1.164 -0.88 -0.744 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.82   : num [1:43, 1:2] -1.81 -1.58 -1.316 -0.994 -0.839 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.83   : num [1:43, 1:2] -1.514 -1.322 -1.101 -0.833 -0.705 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.84   : num [1:43, 1:2] -1.421 -1.241 -1.033 -0.782 -0.661 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.85   : num [1:43, 1:2] -1.532 -1.338 -1.115 -0.844 -0.713 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.86   : num [1:43, 1:2] -1.528 -1.334 -1.112 -0.841 -0.711 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.87   : num [1:43, 1:2] -1.512 -1.32 -1.1 -0.832 -0.704 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.88   : num [1:43, 1:2] -1.524 -1.331 -1.109 -0.839 -0.71 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.89   : num [1:43, 1:2] -1.451 -1.268 -1.056 -0.8 -0.677 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.90   : num [1:43, 1:2] -1.42 -1.24 -1.034 -0.783 -0.662 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.91   : num [1:43, 1:2] -1.463 -1.278 -1.065 -0.806 -0.682 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.92   : num [1:43, 1:2] -1.274 -1.112 -0.925 -0.698 -0.589 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.93   : num [1:43, 1:2] -1.096 -0.956 -0.796 -0.6 -0.506 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.94   : num [1:43, 1:2] -1.349 -1.177 -0.979 -0.738 -0.623 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.95   : num [1:43, 1:2] -1.245 -1.087 -0.904 -0.682 -0.575 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.96   : num [1:43, 1:2] -1.529 -1.334 -1.11 -0.837 -0.706 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.97   : num [1:43, 1:2] -1.46 -1.274 -1.059 -0.799 -0.674 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.98   : num [1:43, 1:2] -1.287 -1.124 -0.937 -0.71 -0.601 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.99   : num [1:43, 1:2] -1.187 -1.037 -0.864 -0.654 -0.554 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. .. [list output truncated]
##  $ size.random                :List of 1
##   ..$ :List of 5
##   .. ..$ n     : num 21507
##   .. ..$ N     : num 21507
##   .. ..$ Ntotal: num 86028
##   .. ..$ ngroup: num 1
##   .. ..$ nrep  : num 4
##  $ summary.linear.predictor   :'data.frame': 100563 obs. of  7 variables:
##   ..$ mean      : num [1:100563] 18 17.1 24.8 27.7 11.4 ...
##   ..$ sd        : num [1:100563] 3.35 6.48 6.18 6.64 5.91 ...
##   ..$ 0.025quant: num [1:100563] 11.476 4.404 12.702 14.674 -0.136 ...
##   ..$ 0.5quant  : num [1:100563] 18 17.1 24.8 27.7 11.4 ...
##   ..$ 0.975quant: num [1:100563] 24.6 29.8 36.9 40.7 23 ...
##   ..$ mode      : num [1:100563] 18 17.1 24.8 27.7 11.4 ...
##   ..$ kld       : num [1:100563] 0 0 0 0 0 0 0 0 0 0 ...
##  $ marginals.linear.predictor : NULL
##  $ summary.fitted.values      :'data.frame': 100563 obs. of  6 variables:
##   ..$ mean      : num [1:100563] 18 17.1 24.8 27.7 11.4 ...
##   ..$ sd        : num [1:100563] 3.35 6.48 6.18 6.64 5.91 ...
##   ..$ 0.025quant: num [1:100563] 11.476 4.404 12.702 14.674 -0.136 ...
##   ..$ 0.5quant  : num [1:100563] 18 17.1 24.8 27.7 11.4 ...
##   ..$ 0.975quant: num [1:100563] 24.6 29.8 36.9 40.7 23 ...
##   ..$ mode      : num [1:100563] 18 17.1 24.8 27.7 11.4 ...
##  $ marginals.fitted.values    : NULL
##  $ size.linear.predictor      :List of 5
##   ..$ n     : num 86029
##   ..$ N     : num 86029
##   ..$ Ntotal: num 100563
##   ..$ ngroup: num 1
##   ..$ nrep  : num 2
##  $ summary.hyperpar           :'data.frame': 6 obs. of  6 variables:
##   ..$ mean      : num [1:6] 0.0119 4.0225 1.8059 -0.3197 -0.7952 ...
##   ..$ sd        : num [1:6] 0.000175 0.150714 0.197728 0.056342 0.053082 ...
##   ..$ 0.025quant: num [1:6] 0.0115 3.7813 1.4296 -0.4445 -0.8994 ...
##   ..$ 0.5quant  : num [1:6] 0.0119 4.0068 1.8016 -0.315 -0.7953 ...
##   ..$ 0.975quant: num [1:6] 0.0122 4.362 2.2082 -0.2261 -0.6904 ...
##   ..$ mode      : num [1:6] 0.0119 3.9304 1.7823 -0.291 -0.7958 ...
##  $ marginals.hyperpar         :List of 6
##   ..$ Precision for the Gaussian observations: num [1:43, 1:2] 0.0111 0.0112 0.0113 0.0115 0.0115 ...
##   .. ..- attr(*, "hyperid")= chr "65001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                       : num [1:43, 1:2] 3.58 3.62 3.68 3.75 3.78 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                       : num [1:43, 1:2] 1.01 1.11 1.22 1.36 1.43 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                       : num [1:43, 1:2] -0.611 -0.571 -0.526 -0.471 -0.445 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta4 for field                       : num [1:43, 1:2] -1.022 -0.993 -0.959 -0.919 -0.899 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta5 for field                       : num [1:43, 1:2] -1.53 -1.45 -1.35 -1.24 -1.18 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ internal.summary.hyperpar  :'data.frame': 6 obs. of  6 variables:
##   ..$ mean      : num [1:6] -4.435 4.025 1.807 -0.321 -0.795 ...
##   ..$ sd        : num [1:6] 0.0148 0.1504 0.1977 0.0562 0.0531 ...
##   ..$ 0.025quant: num [1:6] -4.464 3.781 1.43 -0.445 -0.899 ...
##   ..$ 0.5quant  : num [1:6] -4.435 4.007 1.802 -0.315 -0.795 ...
##   ..$ 0.975quant: num [1:6] -4.405 4.362 2.208 -0.226 -0.69 ...
##   ..$ mode      : num [1:6] -4.435 3.933 1.784 -0.292 -0.796 ...
##  $ internal.marginals.hyperpar:List of 6
##   ..$ Log precision for the Gaussian observations: num [1:43, 1:2] -4.5 -4.49 -4.48 -4.47 -4.46 ...
##   .. ..- attr(*, "hyperid")= chr "65001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                           : num [1:43, 1:2] 3.58 3.62 3.68 3.75 3.78 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                           : num [1:43, 1:2] 1.01 1.11 1.22 1.36 1.43 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                           : num [1:43, 1:2] -0.611 -0.571 -0.526 -0.471 -0.445 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta4 for field                           : num [1:43, 1:2] -1.022 -0.993 -0.959 -0.919 -0.899 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta5 for field                           : num [1:43, 1:2] -1.53 -1.45 -1.35 -1.24 -1.18 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ offset.linear.predictor    : num [1:100563] 0 0 0 0 0 0 0 0 0 0 ...
##  $ model.spde2.blc            : NULL
##  $ summary.spde2.blc          : list()
##  $ marginals.spde2.blc        : NULL
##  $ size.spde2.blc             : NULL
##  $ model.spde3.blc            : NULL
##  $ summary.spde3.blc          : list()
##  $ marginals.spde3.blc        : NULL
##  $ size.spde3.blc             : NULL
##  $ logfile                    : chr [1:767] "[PANUA] PARDISO License is expired." "[PANUA] Please obtain a new PARDISO license at https://www.panua.ch/products/pardiso" "        Read ntt 7 1 with max.threads 24" "        Found num.threads = 7:1 max_threads = 7" ...
##  $ misc                       :List of 22
##   ..$ cov.intern                        : num [1:6, 1:6] 2.19e-04 8.68e-05 -1.23e-04 -2.61e-05 -2.29e-06 ...
##   ..$ cor.intern                        : num [1:6, 1:6] 1 0.04467 -0.04014 -0.03322 -0.00287 ...
##   ..$ cov.intern.eigenvalues            : num [1:6] 0.000148 0.000169 0.000314 0.001414 0.051957 ...
##   ..$ cov.intern.eigenvectors           : num [1:6, 1:6] 0.681 -0.468 0.228 0.347 -0.158 ...
##   ..$ reordering                        : int [1:86029] 84758 84768 85761 79302 85760 79632 79631 85759 79334 79347 ...
##   ..$ theta.tags                        : chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   ..$ log.posterior.mode                : num -55652
##   ..$ stdev.corr.negative               : num [1:6] 0.952 1.007 1.003 1.032 1.059 ...
##   ..$ stdev.corr.positive               : num [1:6] 1.051 0.993 0.997 0.969 0.944 ...
##   ..$ to.theta                          :List of 6
##   .. ..$ Log precision for the Gaussian observations:function (x)  
##   .. ..$ Theta1 for field                           :function (x)  
##   .. ..$ Theta2 for field                           :function (x)  
##   .. ..$ Theta3 for field                           :function (x)  
##   .. ..$ Theta4 for field                           :function (x)  
##   .. ..$ Theta5 for field                           :function (x)  
##   ..$ from.theta                        :List of 6
##   .. ..$ Log precision for the Gaussian observations:function (x)  
##   .. ..$ Theta1 for field                           :function (x)  
##   .. ..$ Theta2 for field                           :function (x)  
##   .. ..$ Theta3 for field                           :function (x)  
##   .. ..$ Theta4 for field                           :function (x)  
##   .. ..$ Theta5 for field                           :function (x)  
##   ..$ mode.status                       : num 0
##   ..$ lincomb.derived.correlation.matrix: NULL
##   ..$ lincomb.derived.covariance.matrix : NULL
##   ..$ opt.directions                    : num [1:6, 1:6] -0.175 0.478 0.797 -0.084 -0.281 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : chr [1:6] "theta:1" "theta:2" "theta:3" "theta:4" ...
##   .. .. ..$ : chr [1:6] "dir:1" "dir:2" "dir:3" "dir:4" ...
##   ..$ configs                           :List of 17
##   .. ..$ .preopt          : logi TRUE
##   .. ..$ lite             : logi FALSE
##   .. ..$ mpred            : int 14534
##   .. ..$ npred            : int 86029
##   .. ..$ mnpred           : int 100563
##   .. ..$ Npred            : int 14534
##   .. ..$ n                : int 86029
##   .. ..$ nz               : int 631029
##   .. ..$ prior_nz         : int 542049
##   .. ..$ ntheta           : int 6
##   .. ..$ nconfig          : int 45
##   .. ..$ offsets          : num [1:100563] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ contents         :List of 3
##   .. .. ..$ tag   : chr [1:4] "APredictor" "Predictor" "field" "Intercept"
##   .. .. ..$ start : int [1:4] 1 14535 100564 186592
##   .. .. ..$ length: int [1:4] 14534 86029 86028 1
##   .. ..$ A                :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:86029] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. ..@ j       : int [1:86029] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:86029] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ pA               :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:101696] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:101696] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 14534 86029
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:101696] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ config           :List of 45
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.435 4.141 1.953 -0.368 -0.819 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -59.8
##   .. .. .. ..$ log.posterior.orig: num -54.6
##   .. .. .. ..$ mean              : num [1:86029] 0.013 0.013 0.0309 0.0319 0.0307 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.013 0.013 0.0309 0.0319 0.0307 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 6177 -5343 18213 56228 -31563 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.189 0.18 0.174 0.111 0.112 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 6177 -5343 18213 56228 -31563 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21388 -0.05018 -0.00797 0.05339 -0.13577 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18 17.1 24.8 27.7 11.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.5755 0.013 0.013 0.0309 0.0319 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.411 4.125 1.961 -0.356 -0.825 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -62.5
##   .. .. .. ..$ log.posterior.orig: num -58.7
##   .. .. .. ..$ mean              : num [1:86029] 0.0189 0.0188 0.0434 0.0447 0.043 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0189 0.0188 0.0434 0.0447 0.043 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 4560 -3973 13645 42125 -23646 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.25 0.237 0.227 0.144 0.145 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 4560 -3973 13645 42125 -23646 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.22 -0.05222 -0.00781 0.0555 -0.14085 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17.2 24.8 27.6 11.6 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.475 0.0189 0.0188 0.0434 0.0447 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.456 4.156 1.946 -0.379 -0.814 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.8
##   .. .. .. ..$ log.posterior.orig: num -58
##   .. .. .. ..$ mean              : num [1:86029] 0.0068 0.00686 0.01659 0.0171 0.01645 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0068 0.00686 0.01659 0.0171 0.01645 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 11126 -9559 32368 99929 -56094 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.1069 0.1028 0.0999 0.0639 0.0644 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 11126 -9559 32368 99929 -56094 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.20839 -0.04828 -0.00809 0.05149 -0.13115 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 17.9 17 24.8 27.8 11.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.65025 0.0068 0.00686 0.01659 0.0171 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.447 4.149 1.95 -0.34 -0.832 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.6
##   .. .. .. ..$ log.posterior.orig: num -57.8
##   .. .. .. ..$ mean              : num [1:86029] 0.014 0.0138 0.0309 0.0319 0.0307 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.014 0.0138 0.0309 0.0319 0.0307 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 5739 -5037 17426 53799 -30200 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.188 0.177 0.168 0.106 0.107 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 5739 -5037 17426 53799 -30200 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21166 -0.04934 -0.00718 0.05311 -0.13471 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17.1 24.8 27.7 11.5 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.3574 0.014 0.0138 0.0309 0.0319 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.422 4.134 1.956 -0.397 -0.806 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -62.1
##   .. .. .. ..$ log.posterior.orig: num -58.3
##   .. .. .. ..$ mean              : num [1:86029] 0.0123 0.0125 0.0307 0.0316 0.0305 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0123 0.0125 0.0307 0.0316 0.0305 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 6748 -5750 19312 59620 -33467 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.188 0.182 0.178 0.115 0.116 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 6748 -5750 19312 59620 -33467 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21614 -0.05096 -0.00874 0.0537 -0.13683 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18 17.1 24.9 27.7 11.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.721 0.0123 0.0125 0.0307 0.0316 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.404 4.172 1.939 -0.363 -0.82 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.5
##   .. .. .. ..$ log.posterior.orig: num -57.7
##   .. .. .. ..$ mean              : num [1:86029] 0.00509 0.00509 0.01197 0.01235 0.01188 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.00509 0.00509 0.01197 0.01235 0.01188 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 14399 -12461 42507 131231 -73665 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0791 0.0756 0.0729 0.0464 0.0468 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 14399 -12461 42507 131231 -73665 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21733 -0.04826 -0.00829 0.05246 -0.13396 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 17.8 16.8 24.8 27.9 11 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.56034 0.00509 0.00509 0.01197 0.01235 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.465 4.111 1.967 -0.374 -0.818 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -62.3
##   .. .. .. ..$ log.posterior.orig: num -58.5
##   .. .. .. ..$ mean              : num [1:86029] 0.0206 0.0206 0.0493 0.0509 0.0489 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0206 0.0206 0.0493 0.0509 0.0489 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 4283 -3702 12611 38935 -21856 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.278 0.266 0.257 0.163 0.165 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 4283 -3702 12611 38935 -21856 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21032 -0.05207 -0.00767 0.05414 -0.13721 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.3 17.4 24.8 27.5 11.9 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.589 0.0206 0.0206 0.0493 0.0509 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.432 4.134 1.936 -0.409 -0.907 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -62.1
##   .. .. .. ..$ log.posterior.orig: num -58.3
##   .. .. .. ..$ mean              : num [1:86029] 0.00599 0.00599 0.0139 0.01444 0.01375 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.00599 0.00599 0.0139 0.01444 0.01375 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 9540 -8263 28210 87092 -48889 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.0766 0.0733 0.0713 0.0428 0.0435 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 9540 -8263 28210 87092 -48889 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21407 -0.04814 -0.00664 0.05401 -0.13566 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18 16.9 24.7 27.6 11.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.38908 0.00599 0.00599 0.0139 0.01444 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.437 4.149 1.972 -0.326 -0.726 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.7
##   .. .. .. ..$ log.posterior.orig: num -57.9
##   .. .. .. ..$ mean              : num [1:86029] 0.0307 0.0307 0.0721 0.0737 0.0716 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0307 0.0307 0.0721 0.0737 0.0716 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 3983 -3439 11706 36139 -20286 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.526 0.504 0.487 0.349 0.35 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 3983 -3439 11706 36139 -20286 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21365 -0.0519 -0.00914 0.05276 -0.13589 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17.3 24.9 27.7 11.5 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.7232 0.0307 0.0307 0.0721 0.0737 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.436 4.17 2.41 -0.333 -0.92 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -410
##   .. .. .. ..$ log.posterior.orig: num -406
##   .. .. .. ..$ mean              : num [1:86029] 0.152 -0.0794 1.1282 1.1709 1.1432 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.152 -0.0794 1.1282 1.1709 1.1432 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.217 -0.105 0.485 0.681 -0.262 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 18.5 13.9 16.5 15.2 14.2 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.204 -0.113 0.449 0.681 -0.262 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.157 -0.059 -0.0102 0.0215 -0.1013 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 13.26 17.86 25 30.37 8.56 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.5078 0.152 -0.0794 1.1282 1.1709 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.433 4.11 1.441 -0.408 -0.706 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -59.4
##   .. .. .. ..$ log.posterior.orig: num -55.6
##   .. .. .. ..$ mean              : num [1:86029] 0.443 0.444 1.268 1.313 1.259 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.443 0.444 1.268 1.313 1.259 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 83.1 -71.8 244.6 754.9 -423.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 6.78 6.55 6.44 4.92 4.98 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 83.1 -71.8 244.5 754.9 -423.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21409 -0.04952 -0.00772 0.05352 -0.13575 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18 17 24.8 27.7 11.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.541 0.443 0.444 1.268 1.313 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.434 4.703 2.397 -0.573 -0.879 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -64.2
##   .. .. .. ..$ log.posterior.orig: num -60.4
##   .. .. .. ..$ mean              : num [1:86029] 0.145 0.143 0.307 0.317 0.305 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.145 0.143 0.307 0.317 0.305 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 598 -524 1806 5577 -3130 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 2.14 2.01 1.92 1.15 1.16 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 598 -524 1806 5577 -3130 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21185 -0.04783 -0.00795 0.05139 -0.1313 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 17.8 16.9 24.8 27.9 11.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.337 0.145 0.143 0.307 0.317 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.435 3.922 1.78 -0.289 -0.796 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -3.79
##   .. .. .. ..$ log.posterior.orig: num 0
##   .. .. .. ..$ mean              : num [1:86029] -0.00917 -0.20608 0.65395 0.675 0.72794 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] -0.00917 -0.20608 0.65395 0.675 0.72794 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.231 -0.114 0.523 0.739 -0.284 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 16.5 12.3 14.6 13.6 12.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.218 -0.121 0.487 0.739 -0.284 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1925 -0.0676 -0.0112 0.0454 -0.1384 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 16.2 18.6 25.1 28.4 11.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.84102 -0.00917 -0.20608 0.65395 0.675 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.452 4.057 2.081 -0.322 -0.805 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -23.9
##   .. .. .. ..$ log.posterior.orig: num -20.1
##   .. .. .. ..$ mean              : num [1:86029] 0.0314 -0.1534 0.7329 0.7528 0.7911 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0314 -0.1534 0.7329 0.7528 0.7911 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.244 -0.12 0.54 0.766 -0.294 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 17.2 13.2 15.5 14.5 13.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.231 -0.127 0.505 0.766 -0.294 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1792 -0.0701 -0.0132 0.0379 -0.13 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.4 18.9 25.3 28.9 11.2 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.1291 0.0314 -0.1534 0.7329 0.7528 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.452 4.376 2.333 -0.438 -0.839 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.9
##   .. .. .. ..$ log.posterior.orig: num -57.1
##   .. .. .. ..$ mean              : num [1:86029] 0.0502 0.0507 0.1153 0.1184 0.1146 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0502 0.0507 0.1153 0.1184 0.1146 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 2405 -2060 6953 21468 -12051 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.787 0.759 0.736 0.468 0.471 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 2405 -2060 6953 21468 -12051 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21117 -0.05192 -0.00899 0.05283 -0.13532 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17.3 24.9 27.7 11.6 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.7481 0.0502 0.0507 0.1153 0.1184 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.449 4.027 1.67 -0.387 -0.791 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61
##   .. .. .. ..$ log.posterior.orig: num -57.2
##   .. .. .. ..$ mean              : num [1:86029] 0.0556 0.0563 0.145 0.1501 0.1436 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0556 0.0563 0.145 0.1501 0.1436 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 982 -843 2853 8806 -4943 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.791 0.765 0.75 0.5 0.506 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 982 -843 2853 8806 -4943 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21101 -0.04881 -0.00735 0.05323 -0.13442 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18 17.1 24.8 27.6 11.5 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.5928 0.0556 0.0563 0.145 0.1501 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.448 4.345 1.922 -0.503 -0.825 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.1
##   .. .. .. ..$ log.posterior.orig: num -56.3
##   .. .. .. ..$ mean              : num [1:86029] 0.191 0.193 0.474 0.491 0.47 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.191 0.193 0.474 0.491 0.47 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 312 -269 912 2815 -1580 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 2.71 2.61 2.54 1.63 1.65 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 312 -269 912 2815 -1580 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21051 -0.04856 -0.00759 0.0526 -0.13319 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18 17 24.8 27.7 11.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.513 0.191 0.193 0.474 0.491 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.426 4.058 1.674 -0.349 -0.718 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.2
##   .. .. .. ..$ log.posterior.orig: num -57.4
##   .. .. .. ..$ mean              : num [1:86029] 0.0771 0.0782 0.2102 0.2164 0.2087 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0771 0.0782 0.2102 0.2164 0.2087 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 816 -700 2365 7301 -4098 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 1.369 1.323 1.293 0.934 0.94 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 816 -700 2365 7301 -4098 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21362 -0.04889 -0.00871 0.05196 -0.13306 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 17.9 17 24.9 27.8 11.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.7736 0.0771 0.0782 0.2102 0.2164 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.425 4.376 1.926 -0.465 -0.752 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.1
##   .. .. .. ..$ log.posterior.orig: num -57.3
##   .. .. .. ..$ mean              : num [1:86029] 0.313 0.317 0.809 0.833 0.803 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.313 0.317 0.809 0.833 0.803 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 234 -201 678 2094 -1176 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 5.28 5.1 4.98 3.46 3.48 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 234 -201 678 2094 -1176 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21398 -0.04976 -0.00906 0.05209 -0.13356 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 17.9 17 24.9 27.8 11.2 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.698 0.313 0.317 0.809 0.833 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.426 4.075 2.055 -0.352 -0.879 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -63.9
##   .. .. .. ..$ log.posterior.orig: num -60.1
##   .. .. .. ..$ mean              : num [1:86029] 0.1039 -0.0847 0.7925 0.8135 0.8446 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.1039 -0.0847 0.7925 0.8135 0.8446 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.222 -0.107 0.493 0.692 -0.266 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 17.3 13 15.6 14.3 13.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.209 -0.115 0.456 0.692 -0.266 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.176 -0.066 -0.0112 0.0352 -0.124 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 14.7 18.4 25.1 29.2 10.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.9788 0.1039 -0.0847 0.7925 0.8135 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.425 4.394 2.307 -0.468 -0.913 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.1
##   .. .. .. ..$ log.posterior.orig: num -56.3
##   .. .. .. ..$ mean              : num [1:86029] 0.0253 0.0255 0.058 0.0599 0.0575 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0253 0.0255 0.058 0.0599 0.0575 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 3117 -2677 9059 27970 -15701 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.378 0.362 0.351 0.204 0.206 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 3117 -2677 9059 27970 -15701 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21398 -0.04869 -0.00824 0.05249 -0.13348 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 17.9 16.9 24.8 27.8 11.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.5363 0.0253 0.0255 0.058 0.0599 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.461 4.039 1.682 -0.33 -0.728 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.3
##   .. .. .. ..$ log.posterior.orig: num -57.5
##   .. .. .. ..$ mean              : num [1:86029] 0.0912 0.0912 0.2343 0.2413 0.2326 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0912 0.0912 0.2343 0.2413 0.2326 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 758 -657 2247 6936 -3893 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 1.414 1.351 1.305 0.93 0.937 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 758 -657 2247 6936 -3893 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.20903 -0.04986 -0.00787 0.05241 -0.13362 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17.2 24.8 27.6 11.6 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.6078 0.0912 0.0912 0.2343 0.2413 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.461 4.358 1.934 -0.446 -0.762 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.1
##   .. .. .. ..$ log.posterior.orig: num -57.3
##   .. .. .. ..$ mean              : num [1:86029] 0.312 0.312 0.762 0.785 0.756 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.312 0.312 0.762 0.785 0.756 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 256 -222 758 2340 -1314 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 4.63 4.42 4.26 2.92 2.94 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 256 -222 758 2340 -1314 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.20932 -0.05062 -0.00819 0.05247 -0.13398 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17.3 24.8 27.6 11.6 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.529 0.312 0.312 0.762 0.785 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.461 4.057 2.063 -0.333 -0.89 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61
##   .. .. .. ..$ log.posterior.orig: num -57.2
##   .. .. .. ..$ mean              : num [1:86029] 0.1187 -0.0644 0.7258 0.7464 0.7734 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.1187 -0.0644 0.7258 0.7464 0.7734 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.247 -0.123 0.558 0.793 -0.305 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 15.5 11.5 13.7 12.4 11.5 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.235 -0.13 0.523 0.793 -0.305 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1724 -0.0667 -0.0108 0.0363 -0.125 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 14.9 18.6 25.1 29 10.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.9385 0.1187 -0.0644 0.7258 0.7464 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.46 4.376 2.315 -0.449 -0.924 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.2
##   .. .. .. ..$ log.posterior.orig: num -56.4
##   .. .. .. ..$ mean              : num [1:86029] 0.0261 0.0259 0.0575 0.0595 0.057 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0261 0.0259 0.0575 0.0595 0.057 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 3175 -2759 9453 29185 -16383 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.354 0.335 0.322 0.185 0.187 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 3175 -2759 9453 29185 -16383 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.20926 -0.04945 -0.00734 0.05288 -0.13379 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17.2 24.8 27.6 11.6 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.4199 0.0261 0.0259 0.0575 0.0595 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.438 4.088 2.067 -0.295 -0.817 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -38.8
##   .. .. .. ..$ log.posterior.orig: num -35
##   .. .. .. ..$ mean              : num [1:86029] 0.0432 -0.1391 0.7344 0.7548 0.7904 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0432 -0.1391 0.7344 0.7548 0.7904 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.223 -0.109 0.506 0.713 -0.274 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 18.5 13.9 16.3 15.1 14.1 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.21 -0.117 0.47 0.713 -0.274 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1787 -0.0675 -0.0121 0.0369 -0.1271 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.1 18.6 25.2 29.1 10.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.0821 0.0432 -0.1391 0.7344 0.7548 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.437 4.407 2.319 -0.411 -0.851 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.7
##   .. .. .. ..$ log.posterior.orig: num -56.9
##   .. .. .. ..$ mean              : num [1:86029] 0.0459 0.0456 0.0993 0.102 0.0987 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0459 0.0456 0.0993 0.102 0.0987 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 2421 -2100 7178 22161 -12440 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.711 0.676 0.648 0.405 0.407 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 2421 -2100 7178 22161 -12440 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21224 -0.04974 -0.00857 0.05199 -0.13323 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 17.9 17.1 24.9 27.8 11.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.5446 0.0459 0.0456 0.0993 0.102 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.435 4.058 1.656 -0.359 -0.803 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.8
##   .. .. .. ..$ log.posterior.orig: num -57
##   .. .. .. ..$ mean              : num [1:86029] 0.0459 0.0458 0.1126 0.1166 0.1116 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0459 0.0458 0.1126 0.1166 0.1116 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 1086 -945 3237 9992 -5609 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.664 0.635 0.616 0.407 0.413 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 1086 -945 3237 9992 -5609 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21186 -0.04651 -0.00703 0.0521 -0.13191 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 17.9 16.8 24.7 27.8 11.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.4743 0.0459 0.0458 0.1126 0.1166 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.434 4.376 1.908 -0.476 -0.837 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -62.8
##   .. .. .. ..$ log.posterior.orig: num -59
##   .. .. .. ..$ mean              : num [1:86029] 0.183 0.181 0.424 0.44 0.421 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.183 0.181 0.424 0.44 0.421 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 300 -262 902 2784 -1563 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 2.61 2.48 2.39 1.52 1.54 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 300 -262 902 2784 -1563 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21147 -0.04636 -0.00723 0.05156 -0.13087 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 17.8 16.8 24.7 27.8 11 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.373 0.183 0.181 0.424 0.44 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.433 4.02 1.691 -0.344 -0.722 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.6
##   .. .. .. ..$ log.posterior.orig: num -56.8
##   .. .. .. ..$ mean              : num [1:86029] 0.101 0.102 0.271 0.279 0.269 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.101 0.102 0.271 0.279 0.269 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 716 -617 2096 6469 -3631 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 1.57 1.51 1.47 1.05 1.06 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 716 -617 2096 6469 -3631 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21565 -0.05233 -0.00843 0.05435 -0.13865 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17.3 24.8 27.6 11.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.712 0.101 0.102 0.271 0.279 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.432 4.339 1.943 -0.46 -0.756 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.6
##   .. .. .. ..$ log.posterior.orig: num -56.8
##   .. .. .. ..$ mean              : num [1:86029] 0.319 0.321 0.808 0.832 0.802 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.319 0.321 0.808 0.832 0.802 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 262 -226 768 2371 -1331 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 4.74 4.55 4.41 3.05 3.07 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 262 -226 768 2371 -1331 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.2158 -0.05296 -0.00877 0.05429 -0.13874 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17.3 24.9 27.6 11.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.636 0.319 0.321 0.808 0.832 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.432 4.038 2.072 -0.347 -0.883 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -33.8
##   .. .. .. ..$ log.posterior.orig: num -30
##   .. .. .. ..$ mean              : num [1:86029] 0.1084 -0.0712 0.7206 0.7405 0.7692 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.1084 -0.0712 0.7206 0.7405 0.7692 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.263 -0.13 0.586 0.835 -0.321 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 14.7 11 13.2 11.9 11.1 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.25 -0.138 0.55 0.835 -0.321 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1784 -0.0695 -0.0116 0.0378 -0.1298 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15 18.7 25.1 29 10.9 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.9467 0.1084 -0.0712 0.7206 0.7405 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.432 4.357 2.324 -0.463 -0.917 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.5
##   .. .. .. ..$ log.posterior.orig: num -56.7
##   .. .. .. ..$ mean              : num [1:86029] 0.0283 0.0283 0.0639 0.0661 0.0634 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0283 0.0283 0.0639 0.0661 0.0634 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 3137 -2710 9224 28479 -15986 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.374 0.357 0.344 0.199 0.202 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 3137 -2710 9224 28479 -15986 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21585 -0.05182 -0.00784 0.05483 -0.13875 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17.2 24.8 27.6 11.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.4915 0.0283 0.0283 0.0639 0.0661 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.409 4.069 2.075 -0.308 -0.81 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -16.8
##   .. .. .. ..$ log.posterior.orig: num -13.1
##   .. .. .. ..$ mean              : num [1:86029] 0.0282 -0.1511 0.7236 0.7434 0.7808 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0282 -0.1511 0.7236 0.7434 0.7808 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.237 -0.116 0.531 0.749 -0.288 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 17.6 13.4 15.7 14.6 13.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.223 -0.124 0.494 0.749 -0.288 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.1849 -0.0703 -0.013 0.0383 -0.1319 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.2 18.6 25.2 29 10.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.1172 0.0282 -0.1511 0.7236 0.7434 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.409 4.388 2.327 -0.425 -0.844 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.9
##   .. .. .. ..$ log.posterior.orig: num -57.1
##   .. .. .. ..$ mean              : num [1:86029] 0.0487 0.0488 0.1087 0.1116 0.1079 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0487 0.0488 0.1087 0.1116 0.1079 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 2412 -2078 7060 21797 -12235 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.754 0.722 0.696 0.44 0.442 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 2412 -2078 7060 21797 -12235 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21877 -0.05193 -0.00912 0.05379 -0.13791 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18 17.1 24.9 27.8 11.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.6599 0.0487 0.0488 0.1087 0.1116 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.406 4.039 1.665 -0.373 -0.796 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.9
##   .. .. .. ..$ log.posterior.orig: num -57.1
##   .. .. .. ..$ mean              : num [1:86029] 0.0529 0.0532 0.1339 0.1387 0.1327 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0529 0.0532 0.1339 0.1387 0.1327 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 1003 -867 2951 9111 -5114 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.751 0.722 0.704 0.467 0.474 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 1003 -867 2951 9111 -5114 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21858 -0.04881 -0.00751 0.05409 -0.13693 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 17.9 16.9 24.8 27.8 11.2 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.543 0.0529 0.0532 0.1339 0.1387 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.405 4.357 1.917 -0.489 -0.83 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.6
##   .. .. .. ..$ log.posterior.orig: num -56.8
##   .. .. .. ..$ mean              : num [1:86029] 0.188 0.188 0.452 0.468 0.448 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.188 0.188 0.452 0.468 0.448 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 308 -267 913 2818 -1582 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 2.66 2.54 2.46 1.58 1.6 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 308 -267 913 2818 -1582 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21802 -0.04849 -0.00774 0.0534 -0.13556 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 17.9 16.8 24.8 27.8 11.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.451 0.188 0.188 0.452 0.468 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.444 4.051 2.084 -0.289 -0.82 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -19.8
##   .. .. .. ..$ log.posterior.orig: num -16
##   .. .. .. ..$ mean              : num [1:86029] 0.0613 -0.1171 0.682 0.7018 0.7344 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0613 -0.1171 0.682 0.7018 0.7344 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.26 -0.131 0.595 0.849 -0.326 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 15.9 11.9 13.8 12.8 12 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.248 -0.139 0.56 0.849 -0.326 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.181 -0.0707 -0.0125 0.0391 -0.1322 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 15.4 18.9 25.2 28.9 11.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 21.0187 0.0613 -0.1171 0.682 0.7018 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.444 4.37 2.336 -0.406 -0.854 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.1
##   .. .. .. ..$ log.posterior.orig: num -57.3
##   .. .. .. ..$ mean              : num [1:86029] 0.0509 0.0503 0.1077 0.1107 0.107 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0509 0.0503 0.1077 0.1107 0.107 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 2479 -2162 7432 22945 -12880 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.692 0.655 0.624 0.389 0.391 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 2479 -2162 7432 22945 -12880 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21392 -0.05273 -0.00824 0.05412 -0.13815 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.2 17.4 24.8 27.6 11.8 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.4578 0.0509 0.0503 0.1077 0.1107 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.441 4.02 1.674 -0.354 -0.806 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61
##   .. .. .. ..$ log.posterior.orig: num -57.2
##   .. .. .. ..$ mean              : num [1:86029] 0.0599 0.0594 0.1444 0.1496 0.1431 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0599 0.0594 0.1444 0.1496 0.1431 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 951 -831 2863 8838 -4961 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.761 0.723 0.698 0.46 0.466 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 951 -831 2863 8838 -4961 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21382 -0.04962 -0.00655 0.05461 -0.13738 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17.1 24.7 27.6 11.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.4194 0.0599 0.0594 0.1444 0.1496 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.44 4.34 1.93 -0.47 -0.84 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61
##   .. .. .. ..$ log.posterior.orig: num -57.2
##   .. .. .. ..$ mean              : num [1:86029] 0.185 0.183 0.422 0.438 0.419 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.185 0.183 0.422 0.438 0.419 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 336 -295 1019 3147 -1766 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 2.34 2.21 2.12 1.35 1.37 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 335 -295 1019 3147 -1766 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21324 -0.0492 -0.00676 0.05388 -0.13595 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18.1 17 24.7 27.6 11.5 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.312 0.185 0.183 0.422 0.438 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.418 4.051 1.677 -0.316 -0.733 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.3
##   .. .. .. ..$ log.posterior.orig: num -57.5
##   .. .. .. ..$ mean              : num [1:86029] 0.0891 0.0885 0.2187 0.2252 0.2172 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0891 0.0885 0.2187 0.2252 0.2172 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 773 -674 2321 7163 -4021 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 1.341 1.273 1.222 0.866 0.873 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 773 -674 2320 7163 -4021 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21654 -0.04983 -0.00799 0.05332 -0.13613 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18 17 24.8 27.8 11.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.4861 0.0891 0.0885 0.2187 0.2252 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.418 4.37 1.929 -0.432 -0.767 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.4
##   .. .. .. ..$ log.posterior.orig: num -57.6
##   .. .. .. ..$ mean              : num [1:86029] 0.314 0.311 0.732 0.754 0.727 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.314 0.311 0.732 0.754 0.727 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 252 -220 759 2342 -1315 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 4.53 4.29 4.11 2.8 2.82 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 252 -220 759 2342 -1315 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21681 -0.05054 -0.00829 0.05337 -0.13645 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18 17.1 24.8 27.8 11.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.403 0.314 0.311 0.732 0.754 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.418 4.069 2.058 -0.319 -0.895 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -55.2
##   .. .. .. ..$ log.posterior.orig: num -51.4
##   .. .. .. ..$ mean              : num [1:86029] 0.1168 -0.0637 0.7151 0.7356 0.7614 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.1168 -0.0637 0.7151 0.7356 0.7614 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.24 -0.119 0.548 0.776 -0.298 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 15.9 11.7 13.9 12.6 11.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 0.227 -0.127 0.512 0.776 -0.298 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.178 -0.0667 -0.0105 0.0366 -0.1265 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 14.8 18.4 25 29.2 10.5 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.9325 0.1168 -0.0637 0.7151 0.7356 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -4.417 4.388 2.31 -0.435 -0.929 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.1
##   .. .. .. ..$ log.posterior.orig: num -56.3
##   .. .. .. ..$ mean              : num [1:86029] 0.0254 0.025 0.0543 0.0561 0.0538 ...
##   .. .. .. ..$ improved.mean     : num [1:86029] 0.0254 0.025 0.0543 0.0561 0.0538 ...
##   .. .. .. ..$ skewness          : logi [1:86029] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 3184 -2785 9600 29639 -16638 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:631029] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:631029] 0.342 0.322 0.307 0.176 0.178 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542049] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86030] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86029 86029
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542049] 3184 -2785 9600 29639 -16638 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14534, 1:3] -0.21679 -0.04947 -0.00749 0.05377 -0.13633 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14534, 1:2] 18 17 24.8 27.7 11.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86029, 1:2] 20.3395 0.0254 0.025 0.0543 0.0561 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. ..$ max.log.posterior: num -55597
##   ..$ nfunc                             : num 532
##   ..$ warnings                          : chr(0) 
##   ..$ opt.trace                         :List of 3
##   .. ..$ f    : Named num [1:73] 15487640 5789883 5788863 5788713 61506 ...
##   .. .. ..- attr(*, "names")= chr [1:73] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ nfunc: Named int [1:73] 1 8 11 12 16 17 18 24 26 29 ...
##   .. .. ..- attr(*, "names")= chr [1:73] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ theta: num [1:73, 1:6] 4 3 3 3 -5.99 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : chr [1:73] "iter1" "iter2" "iter3" "iter4" ...
##   .. .. .. ..$ : chr [1:6] "theta1" "theta2" "theta3" "theta4" ...
##   ..$ theta.mode                        : num [1:6] -4.435 3.922 1.78 -0.289 -0.796 ...
##   ..$ linkfunctions                     :List of 2
##   .. ..$ names: chr "identity"
##   .. ..$ link : int [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ family                            : int [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##  $ dic                        :List of 14
##   ..$ dic              : num 107824
##   ..$ p.eff            : num 2479
##   ..$ mean.deviance    : num 105345
##   ..$ deviance.mean    : num 102865
##   ..$ dic.sat          : num 16648
##   ..$ mean.deviance.sat: num 14168
##   ..$ deviance.mean.sat: num 11689
##   ..$ family.dic       : num 107824
##   ..$ family.dic.sat   : num 16648
##   ..$ family.p.eff     : num 2479
##   ..$ family           : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ local.dic        : num [1:14534] 9 7.82 7.24 7.47 8.77 ...
##   ..$ local.dic.sat    : num [1:14534] 2.731 1.547 0.965 1.197 2.499 ...
##   ..$ local.p.eff      : num [1:14534] -0.562 0.667 0.48 0.479 0.473 ...
##  $ mode                       :List of 5
##   ..$ theta             : Named num [1:6] -4.435 3.922 1.78 -0.289 -0.796 ...
##   .. ..- attr(*, "names")= chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   ..$ x                 : num [1:186592] 18 17.1 24.8 27.7 11.4 ...
##   ..$ theta.tags        : chr [1:6] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field" "Theta3 for field" ...
##   ..$ mode.status       : num 0
##   ..$ log.posterior.mode: num -55652
##  $ joint.hyper                :'data.frame': 1 obs. of  8 variables:
##   ..$ Log precision for the Gaussian observations : num -4.44
##   ..$ Theta1 for field                            : num 3.7
##   ..$ Theta2 for field                            : num 1.61
##   ..$ Theta3 for field                            : num -0.209
##   ..$ Theta4 for field                            : num -0.772
##   ..$ Theta5 for field                            : num -1.17
##   ..$ Log posterior density                       : num -55616
##   ..$ Total integration weight (log.dens included): int 1
##  $ nhyper                     : int 6
##  $ version                    :List of 2
##   ..$ inla.call: chr "GITCOMMIT [65caa90be5e1562e187020eca3bb20611b547b59 - Mon Apr 22 10:01:05 2024 +0300]"
##   ..$ R.INLA   : Named chr "24.04.22"
##   .. ..- attr(*, "names")= chr "version"
##  $ Q                          : NULL
##  $ graph                      : NULL
##  $ ok                         : logi TRUE
##  $ cpu.intern                 : chr [1:16] "Wall-clock time used on [/tmp/RtmprGGRho/file1f48191ec16261/Model.ini]" "Preparations             :   0.229 seconds" "Approx inference (stage1): 358.003 seconds" "Approx inference (stage2):   0.002 seconds" ...
##  $ cpu.used                   : Named num [1:4] 0.18 358.91 6.42 365.5
##   ..- attr(*, "names")= chr [1:4] "Pre" "Running" "Post" "Total"
##  $ all.hyper                  :List of 4
##   ..$ predictor:List of 1
##   .. ..$ hyper:List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   ..$ family   :List of 1
##   .. ..$ :List of 4
##   .. .. ..$ hyperid: chr "INLA.Data1"
##   .. .. ..$ label  : chr "gaussian"
##   .. .. ..$ hyper  :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 65001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "Precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "Log precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 4
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 65002
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision offset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "precoffset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 72.1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi TRUE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "none"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ param             : num(0) 
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ link   :List of 1
##   .. .. .. ..$ hyper: list()
##   ..$ linear   :List of 1
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "Intercept"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   ..$ random   :List of 2
##   .. ..$ : NULL
##   .. ..$ :List of 3
##   .. .. ..$ hyperid    : chr "field"
##   .. .. ..$ hyper      : NULL
##   .. .. ..$ group.hyper:List of 1
##   .. .. .. ..$ theta:List of 9
##   .. .. .. .. ..$ hyperid   : num 40001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name      : chr "logit correlation"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name: chr "rho"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial   : num 1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed     : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior     : chr "normal"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param     : num [1:2] 0 0.2
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta  :function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta:function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##  $ .args                      :List of 30
##   ..$ formula          :Class 'formula'  language BRU.response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   ..$ family           : chr "gaussian"
##   ..$ data             :List of 16
##   .. ..$ BRU.response            : num [1:14534] 0 12.9 24.1 32.2 0 ...
##   .. ..$ BRU.E                   : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.Ntrials             : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.weights             : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.scale               : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.offset              : num [1:14534] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ Intercept               : num [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.group         : int [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.repl          : int [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ field                   : int [1:86029] NA 1 2 3 4 5 6 7 8 9 ...
##   .. ..$ field.group             : int [1:86029] NA 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ field.repl              : int [1:86029] NA 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU_Intercept_main_model: chr "linear"
##   .. ..$ BRU_Intercept_values    : num 1
##   .. ..$ BRU_field_main_model    :List of 20
##   .. .. ..$ f                   :List of 3
##   .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. ..$ n       : int 21507
##   .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. ..$ ints      :List of 6
##   .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. ..$ rspde_order: int 2
##   .. .. .. .. .. .. ..$ matern_par : int 1
##   .. .. .. .. .. ..$ doubles   :List of 9
##   .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. ..$ nu_upper_bound      : num 1.5
##   .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. ..$ start.theta         : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. ..$ matrices  :List of 4
##   .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. ..$ B_tau           : num [1:35847] 7169 5 -1.15 -1 0.75 ...
##   .. .. .. .. .. .. ..$ B_kappa         : num [1:35847] 7169 5 0.896 0 -1 ...
##   .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. ..$ C: num [1:21510] 7169 7169 7169 0 1 ...
##   .. .. .. .. .. .. ..$ G: num [1:74640] 7169 7169 24879 0 1 ...
##   .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. ..$ cgeneric_type       : chr "general"
##   .. .. ..$ theta.prior.mean    : num [1:4] 4.64 1.51 0 0
##   .. .. ..$ prior.nu            :List of 4
##   .. .. .. ..$ loglocation: num -0.288
##   .. .. .. ..$ mean       : num 0.75
##   .. .. .. ..$ prec       : num 3
##   .. .. .. ..$ logscale   : num 1
##   .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. ..$ start.nu            : num 0.75
##   .. .. ..$ integer.nu          : logi FALSE
##   .. .. ..$ start.theta         : num [1:4] 4.64 1.51 0 0
##   .. .. ..$ stationary          : logi FALSE
##   .. .. ..$ rspde.order         : num 2
##   .. .. ..$ dim                 : num 1
##   .. .. ..$ est_nu              : logi TRUE
##   .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. ..$ debug               : logi FALSE
##   .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. ..$ fem_mesh            :List of 5
##   .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. ..$ parameterization    : chr "matern"
##   .. .. ..$ n.spde              : int 7169
##   .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. ..$ BRU_field_values        : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ quantiles        : num [1:3] 0.025 0.5 0.975
##   ..$ E                : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ offset           : num [1:14534] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ scale            : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ weights          : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ Ntrials          : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ verbose          : logi FALSE
##   ..$ control.compute  :List of 18
##   .. ..$ openmp.strategy           : chr "default"
##   .. ..$ hyperpar                  : logi TRUE
##   .. ..$ return.marginals          : logi TRUE
##   .. ..$ return.marginals.predictor: logi FALSE
##   .. ..$ dic                       : logi TRUE
##   .. ..$ mlik                      : logi TRUE
##   .. ..$ cpo                       : logi FALSE
##   .. ..$ po                        : logi FALSE
##   .. ..$ waic                      : logi TRUE
##   .. ..$ residuals                 : logi FALSE
##   .. ..$ q                         : logi FALSE
##   .. ..$ config                    : logi TRUE
##   .. ..$ likelihood.info           : logi FALSE
##   .. ..$ smtp                      : NULL
##   .. ..$ graph                     : logi FALSE
##   .. ..$ internal.opt              : NULL
##   .. ..$ save.memory               : NULL
##   .. ..$ control.gcpo              :List of 16
##   .. .. ..$ enable          : logi FALSE
##   .. .. ..$ num.level.sets  : num -1
##   .. .. ..$ size.max        : num 32
##   .. .. ..$ strategy        : chr [1:2] "posterior" "prior"
##   .. .. ..$ groups          : NULL
##   .. .. ..$ selection       : NULL
##   .. .. ..$ group.selection : NULL
##   .. .. ..$ friends         : NULL
##   .. .. ..$ weights         : NULL
##   .. .. ..$ verbose         : logi FALSE
##   .. .. ..$ epsilon         : num 0.005
##   .. .. ..$ prior.diagonal  : num 1e-04
##   .. .. ..$ correct.hyperpar: logi TRUE
##   .. .. ..$ keep            : NULL
##   .. .. ..$ remove          : NULL
##   .. .. ..$ remove.fixed    : logi TRUE
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_gcpo" "inla_ctrl_object"
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_compute" "inla_ctrl_object"
##   ..$ control.predictor:List of 12
##   .. ..$ hyper    :List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. ..$ fixed    : NULL
##   .. ..$ prior    : NULL
##   .. ..$ param    : NULL
##   .. ..$ initial  : NULL
##   .. ..$ compute  : logi TRUE
##   .. ..$ cdf      : NULL
##   .. ..$ quantiles: NULL
##   .. ..$ cross    : NULL
##   .. ..$ A        :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:101696] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:101696] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 14534 86029
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:101696] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ precision: num 3269017
##   .. ..$ link     : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_predictor" "inla_ctrl_object"
##   ..$ control.family   :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ dummy            : num 0
##   .. .. ..$ hyper            :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 65001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "Precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "Log precision for the Gaussian observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 4
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 65002
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision offset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "precoffset"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "NOT IN USE"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 72.1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi TRUE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "none"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ param             : num(0) 
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ initial          : NULL
##   .. .. ..$ prior            : NULL
##   .. .. ..$ param            : NULL
##   .. .. ..$ fixed            : NULL
##   .. .. ..$ link             : chr "default"
##   .. .. ..$ sn.shape.max     : num 5
##   .. .. ..$ gev.scale.xi     : num 0.1
##   .. .. ..$ control.bgev     : NULL
##   .. .. ..$ cenpoisson.I     : int [1:2] -1 -1
##   .. .. ..$ beta.censor.value: num 0
##   .. .. ..$ variant          : int 0
##   .. .. ..$ control.mix      : NULL
##   .. .. ..$ control.pom      : NULL
##   .. .. ..$ control.link     :List of 10
##   .. .. .. ..$ model   : chr "default"
##   .. .. .. ..$ order   : NULL
##   .. .. .. ..$ variant : NULL
##   .. .. .. ..$ hyper   : list()
##   .. .. .. ..$ quantile: NULL
##   .. .. .. ..$ a       : num 1
##   .. .. .. ..$ initial : NULL
##   .. .. .. ..$ fixed   : NULL
##   .. .. .. ..$ prior   : NULL
##   .. .. .. ..$ param   : NULL
##   .. .. .. ..- attr(*, "class")= chr [1:2] "ctrl_link" "inla_ctrl_object"
##   .. .. ..$ link.simple      : chr "default"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_family" "inla_ctrl_object"
##   ..$ control.inla     :List of 56
##   .. ..$ strategy                          : chr "auto"
##   .. ..$ int.strategy                      : chr "auto"
##   .. ..$ int.design                        : NULL
##   .. ..$ interpolator                      : chr "auto"
##   .. ..$ fast                              : logi TRUE
##   .. ..$ linear.correction                 : NULL
##   .. ..$ h                                 : num 0.005
##   .. ..$ dz                                : num 0.75
##   .. ..$ diff.logdens                      : num 6
##   .. ..$ print.joint.hyper                 : logi TRUE
##   .. ..$ force.diagonal                    : logi FALSE
##   .. ..$ skip.configurations               : logi TRUE
##   .. ..$ mode.known                        : logi FALSE
##   .. ..$ adjust.weights                    : logi TRUE
##   .. ..$ tolerance                         : num 0.005
##   .. ..$ tolerance.f                       : NULL
##   .. ..$ tolerance.g                       : NULL
##   .. ..$ tolerance.x                       : NULL
##   .. ..$ tolerance.step                    : num 0.001
##   .. ..$ restart                           : int 0
##   .. ..$ optimiser                         : chr "default"
##   .. ..$ verbose                           : NULL
##   .. ..$ reordering                        : chr "auto"
##   .. ..$ cpo.diff                          : NULL
##   .. ..$ npoints                           : num 9
##   .. ..$ cutoff                            : num 1e-04
##   .. ..$ adapt.hessian.mode                : NULL
##   .. ..$ adapt.hessian.max.trials          : NULL
##   .. ..$ adapt.hessian.scale               : NULL
##   .. ..$ adaptive.max                      : int 25
##   .. ..$ huge                              : logi FALSE
##   .. ..$ step.len                          : num 0
##   .. ..$ stencil                           : int 5
##   .. ..$ lincomb.derived.correlation.matrix: logi FALSE
##   .. ..$ diagonal                          : num 0
##   .. ..$ numint.maxfeval                   : num 1e+05
##   .. ..$ numint.relerr                     : num 1e-05
##   .. ..$ numint.abserr                     : num 1e-06
##   .. ..$ cmin                              : num -Inf
##   .. ..$ b.strategy                        : chr "keep"
##   .. ..$ step.factor                       : num -0.1
##   .. ..$ global.node.factor                : num 2
##   .. ..$ global.node.degree                : int 2147483647
##   .. ..$ stupid.search                     : logi TRUE
##   .. ..$ stupid.search.max.iter            : int 1000
##   .. ..$ stupid.search.factor              : num 1.05
##   .. ..$ control.vb                        :List of 8
##   .. .. ..$ enable          : chr "auto"
##   .. .. ..$ strategy        : chr [1:2] "mean" "variance"
##   .. .. ..$ verbose         : logi TRUE
##   .. .. ..$ iter.max        : num 25
##   .. .. ..$ emergency       : num 25
##   .. .. ..$ f.enable.limit  : num [1:4] 30 25 1024 768
##   .. .. ..$ hessian.update  : num 2
##   .. .. ..$ hessian.strategy: chr [1:4] "default" "full" "partial" "diagonal"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_vb" "inla_ctrl_object"
##   .. ..$ num.gradient                      : chr "central"
##   .. ..$ num.hessian                       : chr "central"
##   .. ..$ optimise.strategy                 : chr "smart"
##   .. ..$ use.directions                    : logi TRUE
##   .. ..$ constr.marginal.diagonal          : num 1.49e-08
##   .. ..$ improved.simplified.laplace       : logi FALSE
##   .. ..$ parallel.linesearch               : logi FALSE
##   .. ..$ compute.initial.values            : logi TRUE
##   .. ..$ hessian.correct.skewness.only     : logi TRUE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_inla" "inla_ctrl_object"
##   ..$ control.fixed    :List of 10
##   .. ..$ cdf                   : NULL
##   .. ..$ quantiles             : NULL
##   .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ mean                  : num 0
##   .. ..$ mean.intercept        : num 0
##   .. ..$ prec                  : num 0.001
##   .. ..$ prec.intercept        : num 0
##   .. ..$ compute               : logi TRUE
##   .. ..$ correlation.matrix    : logi FALSE
##   .. ..$ remove.names          : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_fixed" "inla_ctrl_object"
##   ..$ control.mode     :List of 5
##   .. ..$ result : NULL
##   .. ..$ theta  : NULL
##   .. ..$ x      : NULL
##   .. ..$ restart: logi FALSE
##   .. ..$ fixed  : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_mode" "inla_ctrl_object"
##   ..$ control.expert   :List of 6
##   .. ..$ cpo.manual            : logi FALSE
##   .. ..$ cpo.idx               : num -1
##   .. ..$ disable.gaussian.check: logi FALSE
##   .. ..$ jp                    : NULL
##   .. ..$ dot.product.gain      : logi FALSE
##   .. ..$ globalconstr          :List of 2
##   .. .. ..$ A: NULL
##   .. .. ..$ e: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_expert" "inla_ctrl_object"
##   ..$ control.lincomb  :List of 1
##   .. ..$ verbose: logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lincomb" "inla_ctrl_object"
##   ..$ control.update   :List of 1
##   .. ..$ result: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_update" "inla_ctrl_object"
##   ..$ control.lp.scale :List of 1
##   .. ..$ hyper:List of 100
##   .. .. ..$ theta1  :List of 11
##   .. .. .. ..$ hyperid           : num 103001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta2  :List of 11
##   .. .. .. ..$ hyperid           : num 103002
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta3  :List of 11
##   .. .. .. ..$ hyperid           : num 103003
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta4  :List of 11
##   .. .. .. ..$ hyperid           : num 103004
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta5  :List of 11
##   .. .. .. ..$ hyperid           : num 103005
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta6  :List of 11
##   .. .. .. ..$ hyperid           : num 103006
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta7  :List of 11
##   .. .. .. ..$ hyperid           : num 103007
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta8  :List of 11
##   .. .. .. ..$ hyperid           : num 103008
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta9  :List of 11
##   .. .. .. ..$ hyperid           : num 103009
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta10 :List of 11
##   .. .. .. ..$ hyperid           : num 103010
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta11 :List of 11
##   .. .. .. ..$ hyperid           : num 103011
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta12 :List of 11
##   .. .. .. ..$ hyperid           : num 103012
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta13 :List of 11
##   .. .. .. ..$ hyperid           : num 103013
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta14 :List of 11
##   .. .. .. ..$ hyperid           : num 103014
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta15 :List of 11
##   .. .. .. ..$ hyperid           : num 103015
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta16 :List of 11
##   .. .. .. ..$ hyperid           : num 103016
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta17 :List of 11
##   .. .. .. ..$ hyperid           : num 103017
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta18 :List of 11
##   .. .. .. ..$ hyperid           : num 103018
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta19 :List of 11
##   .. .. .. ..$ hyperid           : num 103019
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta20 :List of 11
##   .. .. .. ..$ hyperid           : num 103020
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta21 :List of 11
##   .. .. .. ..$ hyperid           : num 103021
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta22 :List of 11
##   .. .. .. ..$ hyperid           : num 103022
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta23 :List of 11
##   .. .. .. ..$ hyperid           : num 103023
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta24 :List of 11
##   .. .. .. ..$ hyperid           : num 103024
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta25 :List of 11
##   .. .. .. ..$ hyperid           : num 103025
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta26 :List of 11
##   .. .. .. ..$ hyperid           : num 103026
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta27 :List of 11
##   .. .. .. ..$ hyperid           : num 103027
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta28 :List of 11
##   .. .. .. ..$ hyperid           : num 103028
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta29 :List of 11
##   .. .. .. ..$ hyperid           : num 103029
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta30 :List of 11
##   .. .. .. ..$ hyperid           : num 103030
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta31 :List of 11
##   .. .. .. ..$ hyperid           : num 103031
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta32 :List of 11
##   .. .. .. ..$ hyperid           : num 103032
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta33 :List of 11
##   .. .. .. ..$ hyperid           : num 103033
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta34 :List of 11
##   .. .. .. ..$ hyperid           : num 103034
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta35 :List of 11
##   .. .. .. ..$ hyperid           : num 103035
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta36 :List of 11
##   .. .. .. ..$ hyperid           : num 103036
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta37 :List of 11
##   .. .. .. ..$ hyperid           : num 103037
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta38 :List of 11
##   .. .. .. ..$ hyperid           : num 103038
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta39 :List of 11
##   .. .. .. ..$ hyperid           : num 103039
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta40 :List of 11
##   .. .. .. ..$ hyperid           : num 103040
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta41 :List of 11
##   .. .. .. ..$ hyperid           : num 103041
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta42 :List of 11
##   .. .. .. ..$ hyperid           : num 103042
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta43 :List of 11
##   .. .. .. ..$ hyperid           : num 103043
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta44 :List of 11
##   .. .. .. ..$ hyperid           : num 103044
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta45 :List of 11
##   .. .. .. ..$ hyperid           : num 103045
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta46 :List of 11
##   .. .. .. ..$ hyperid           : num 103046
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta47 :List of 11
##   .. .. .. ..$ hyperid           : num 103047
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta48 :List of 11
##   .. .. .. ..$ hyperid           : num 103048
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta49 :List of 11
##   .. .. .. ..$ hyperid           : num 103049
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta50 :List of 11
##   .. .. .. ..$ hyperid           : num 103050
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta51 :List of 11
##   .. .. .. ..$ hyperid           : num 103051
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta52 :List of 11
##   .. .. .. ..$ hyperid           : num 103052
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta53 :List of 11
##   .. .. .. ..$ hyperid           : num 103053
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta54 :List of 11
##   .. .. .. ..$ hyperid           : num 103054
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta55 :List of 11
##   .. .. .. ..$ hyperid           : num 103055
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta56 :List of 11
##   .. .. .. ..$ hyperid           : num 103056
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta57 :List of 11
##   .. .. .. ..$ hyperid           : num 103057
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta58 :List of 11
##   .. .. .. ..$ hyperid           : num 103058
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta59 :List of 11
##   .. .. .. ..$ hyperid           : num 103059
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta60 :List of 11
##   .. .. .. ..$ hyperid           : num 103060
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta61 :List of 11
##   .. .. .. ..$ hyperid           : num 103061
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta62 :List of 11
##   .. .. .. ..$ hyperid           : num 103062
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta63 :List of 11
##   .. .. .. ..$ hyperid           : num 103063
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta64 :List of 11
##   .. .. .. ..$ hyperid           : num 103064
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta65 :List of 11
##   .. .. .. ..$ hyperid           : num 103065
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta66 :List of 11
##   .. .. .. ..$ hyperid           : num 103066
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta67 :List of 11
##   .. .. .. ..$ hyperid           : num 103067
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta68 :List of 11
##   .. .. .. ..$ hyperid           : num 103068
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta69 :List of 11
##   .. .. .. ..$ hyperid           : num 103069
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta70 :List of 11
##   .. .. .. ..$ hyperid           : num 103070
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta71 :List of 11
##   .. .. .. ..$ hyperid           : num 103071
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta72 :List of 11
##   .. .. .. ..$ hyperid           : num 103072
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta73 :List of 11
##   .. .. .. ..$ hyperid           : num 103073
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta74 :List of 11
##   .. .. .. ..$ hyperid           : num 103074
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta75 :List of 11
##   .. .. .. ..$ hyperid           : num 103075
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta76 :List of 11
##   .. .. .. ..$ hyperid           : num 103076
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta77 :List of 11
##   .. .. .. ..$ hyperid           : num 103077
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta78 :List of 11
##   .. .. .. ..$ hyperid           : num 103078
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta79 :List of 11
##   .. .. .. ..$ hyperid           : num 103079
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta80 :List of 11
##   .. .. .. ..$ hyperid           : num 103080
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta81 :List of 11
##   .. .. .. ..$ hyperid           : num 103081
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta82 :List of 11
##   .. .. .. ..$ hyperid           : num 103082
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta83 :List of 11
##   .. .. .. ..$ hyperid           : num 103083
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta84 :List of 11
##   .. .. .. ..$ hyperid           : num 103084
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta85 :List of 11
##   .. .. .. ..$ hyperid           : num 103085
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta86 :List of 11
##   .. .. .. ..$ hyperid           : num 103086
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta87 :List of 11
##   .. .. .. ..$ hyperid           : num 103087
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta88 :List of 11
##   .. .. .. ..$ hyperid           : num 103088
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta89 :List of 11
##   .. .. .. ..$ hyperid           : num 103089
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta90 :List of 11
##   .. .. .. ..$ hyperid           : num 103090
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta91 :List of 11
##   .. .. .. ..$ hyperid           : num 103091
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta92 :List of 11
##   .. .. .. ..$ hyperid           : num 103092
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta93 :List of 11
##   .. .. .. ..$ hyperid           : num 103093
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta94 :List of 11
##   .. .. .. ..$ hyperid           : num 103094
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta95 :List of 11
##   .. .. .. ..$ hyperid           : num 103095
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta96 :List of 11
##   .. .. .. ..$ hyperid           : num 103096
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta97 :List of 11
##   .. .. .. ..$ hyperid           : num 103097
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta98 :List of 11
##   .. .. .. ..$ hyperid           : num 103098
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta99 :List of 11
##   .. .. .. ..$ hyperid           : num 103099
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. [list output truncated]
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lp_scale" "inla_ctrl_object"
##   ..$ control.pardiso  :List of 4
##   .. ..$ verbose            : logi FALSE
##   .. ..$ debug              : logi FALSE
##   .. ..$ parallel.reordering: logi TRUE
##   .. ..$ nrhs               : num -1
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_pardiso" "inla_ctrl_object"
##   ..$ only.hyperparam  : logi FALSE
##   ..$ inla.call        : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/inla.mkl.run"
##   ..$ num.threads      : chr "7:1"
##   ..$ keep             : logi FALSE
##   ..$ silent           : logi TRUE
##   ..$ inla.mode        : chr "compact"
##   ..$ safe             : logi TRUE
##   ..$ debug            : logi FALSE
##   ..$ .parent.frame    :<environment: R_GlobalEnv> 
##  $ call                       : chr [1:14] "inla.core(formula = formula, family = family, contrasts = contrasts, " "    data = data, quantiles = quantiles, E = E, offset = offset, " "    scale = scale, weights = weights, Ntrials = Ntrials, strata = strata, " "    lp.scale = lp.scale, link.covariates = link.covariates, verbose = verbose, " ...
##  $ model.matrix               :Formal class 'dsparseModelMatrix' [package "MatrixModels"] with 8 slots
##   .. ..@ i        : int(0) 
##   .. ..@ p        : int 0
##   .. ..@ Dim      : int [1:2] 86029 0
##   .. ..@ Dimnames :List of 2
##   .. .. ..$ : chr [1:86029] "1" "2" "3" "4" ...
##   .. .. ..$ : NULL
##   .. ..@ x        : num(0) 
##   .. ..@ factors  : list()
##   .. ..@ assign   : int(0) 
##   .. ..@ contrasts: Named list()
##  $ bru_iinla                  :List of 5
##   ..$ log       :Class 'bru_log'  hidden list of 2
##   .. ..$ log      : chr [1:7] "2024-04-25 22:50:37.841789: iinla: Evaluate component inputs" "2024-04-25 22:50:37.874522: iinla: Evaluate component linearisations" "2024-04-25 22:50:40.957517: iinla: Evaluate component simplifications" "2024-04-25 22:50:43.989812: iinla: Evaluate predictor linearisation" ...
##   .. ..$ bookmarks: Named int 0
##   .. .. ..- attr(*, "names")= chr "iinla"
##   ..$ states    :List of 1
##   .. ..$ :List of 2
##   .. .. ..$ Intercept: num 0
##   .. .. ..$ field    : num [1:86028] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ inla_stack:List of 3
##   .. ..$ A      :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:101696] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ p       : int [1:86030] 0 14534 14538 14545 14545 14545 14545 14546 14547 14549 ...
##   .. .. .. ..@ Dim     : int [1:2] 14534 86029
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:101696] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ data   :List of 5
##   .. .. ..$ data :'data.frame':  14534 obs. of  6 variables:
##   .. .. .. ..$ BRU.response: num [1:14534] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ BRU.E       : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.Ntrials : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.weights : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.scale   : num [1:14534] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.offset  : num [1:14534] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. ..$ nrow : int 14534
##   .. .. ..$ ncol : Named int [1:6] 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:6] "BRU.response" "BRU.E" "BRU.Ntrials" "BRU.weights" ...
##   .. .. ..$ names:List of 6
##   .. .. .. ..$ BRU.response: chr "BRU.response"
##   .. .. .. ..$ BRU.E       : chr "BRU.E"
##   .. .. .. ..$ BRU.Ntrials : chr "BRU.Ntrials"
##   .. .. .. ..$ BRU.weights : chr "BRU.weights"
##   .. .. .. ..$ BRU.scale   : chr "BRU.scale"
##   .. .. .. ..$ BRU.offset  : chr "BRU.offset"
##   .. .. ..$ index:List of 1
##   .. .. .. ..$ : num [1:14534] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..$ effects:List of 5
##   .. .. ..$ data :'data.frame':  86029 obs. of  6 variables:
##   .. .. .. ..$ Intercept      : num [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.group: int [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.repl : int [1:86029] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ field          : int [1:86029] NA 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..$ field.group    : int [1:86029] NA 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ field.repl     : int [1:86029] NA 1 1 1 1 1 1 1 1 1 ...
##   .. .. ..$ nrow : int 86029
##   .. .. ..$ ncol : Named int [1:6] 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:6] "Intercept" "Intercept.group" "Intercept.repl" "field" ...
##   .. .. ..$ names:List of 6
##   .. .. .. ..$ Intercept      : chr "Intercept"
##   .. .. .. ..$ Intercept.group: chr "Intercept.group"
##   .. .. .. ..$ Intercept.repl : chr "Intercept.repl"
##   .. .. .. ..$ field          : chr "field"
##   .. .. .. ..$ field.group    : chr "field.group"
##   .. .. .. ..$ field.repl     : chr "field.repl"
##   .. .. ..$ index:List of 2
##   .. .. .. ..$ : int 1
##   .. .. .. ..$ : int [1:86028] 2 3 4 5 6 7 8 9 10 11 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..- attr(*, "class")= chr "inla.data.stack"
##   ..$ track     :'data.frame':   86036 obs. of  6 variables:
##   .. ..$ effect           : chr [1:86036] "Intercept" "field" "field" "field" ...
##   .. ..$ index            : num [1:86036] 1 1 2 3 4 5 6 7 8 9 ...
##   .. ..$ iteration        : num [1:86036] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ mode             : num [1:86036] 20.5755 0.013 0.013 0.0309 0.0319 ...
##   .. ..$ sd               : num [1:86036] 0.865 0.434 0.417 0.333 0.336 ...
##   .. ..$ new_linearisation: num [1:86036] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ timings   :'data.frame':   2 obs. of  3 variables:
##   .. ..$ Task     : chr [1:2] "Preprocess" "Run inla()"
##   .. ..$ Iteration: num [1:2] 1 1
##   .. ..$ Time     : 'difftime' num [1:2] 1.21425311962763 6.09360894362132
##   .. .. ..- attr(*, "units")= chr "mins"
##  $ bru_timings                :'data.frame': 3 obs. of  3 variables:
##   ..$ Task     : chr [1:3] "Preprocess" "Preprocess" "Run inla()"
##   ..$ Iteration: num [1:3] 0 1 1
##   ..$ Time     : 'difftime' num [1:3] 0.0384669303894043 72.8551871776581 365.616536617279
##   .. ..- attr(*, "units")= chr "secs"
##  $ bru_info                   :List of 6
##   ..$ method         : chr "bru"
##   ..$ model          :List of 2
##   .. ..$ effects:List of 2
##   .. .. ..$ Intercept:List of 12
##   .. .. .. ..$ label       : chr "Intercept"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : num 1
##   .. .. .. .. .. ..$ label   : chr "Intercept"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x59ebc0f4aa98> 
##   .. .. .. ..$ fcall       : language "f"(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ field    :List of 12
##   .. .. .. ..$ label       : chr "field"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol loc
##   .. .. .. .. .. ..$ label   : chr "field"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ model:List of 20
##   .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ ints      :List of 6
##   .. .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ rspde_order: int 2
##   .. .. .. .. .. .. .. .. .. .. ..$ matern_par : int 1
##   .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 9
##   .. .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ nu_upper_bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:35847] 7169 5 -1.15 -1 0.75 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:35847] 7169 5 0.896 0 -1 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ C: num [1:21510] 7169 7169 7169 0 1 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ G: num [1:74640] 7169 7169 24879 0 1 ...
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. .. ..$ start.theta         : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. ..$ model         :List of 20
##   .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. ..$ ints      :List of 6
##   .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. ..$ rspde_order: int 2
##   .. .. .. .. .. .. .. .. .. ..$ matern_par : int 1
##   .. .. .. .. .. .. .. .. ..$ doubles   :List of 9
##   .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ nu_upper_bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. ..$ matrices  :List of 4
##   .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:35847] 7169 5 -1.15 -1 0.75 ...
##   .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:35847] 7169 5 0.896 0 -1 ...
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. ..$ C: num [1:21510] 7169 7169 7169 0 1 ...
##   .. .. .. .. .. .. .. .. .. ..$ G: num [1:74640] 7169 7169 24879 0 1 ...
##   .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. ..$ start.theta         : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. ..$ type          : chr "cgeneric"
##   .. .. .. .. ..$ n             : num 21507
##   .. .. .. .. ..$ values        : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "field.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : language data_rspde_bru_nonstat[["repl"]]
##   .. .. .. .. .. ..$ label   : chr "field.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 4
##   .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : int 4
##   .. .. .. .. ..$ values        : int [1:4] 1 2 3 4
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x59ebc2b804a8> 
##   .. .. .. ..$ fcall       : language "f"(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     :List of 1
##   .. .. .. .. .. .. .. .. ..$ model:List of 20
##   .. .. .. .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ ints      :List of 6
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ rspde_order: int 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ matern_par : int 1
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 9
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ nu_upper_bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.3/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 4
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:35847] 7169 5 -1.15 -1 0.75 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:35847] 7169 5 0.896 0 -1 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ C: num [1:21510] 7169 7169 7169 0 1 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ G: num [1:74640] 7169 7169 24879 0 1 ...
##   .. .. .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:4] 4.64 1.51 0 0
##   .. .. .. .. .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 4
##   .. .. .. .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 21507
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 21507
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 86028
##   .. .. .. .. .. .. ..$ n_inla           : num 86028
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 86028 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 86028
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..- attr(*, "class")= chr [1:2] "component_list" "list"
##   .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..$ formula:Class 'formula'  language BRU_response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..- attr(*, "class")= chr [1:2] "bru_model" "list"
##   ..$ lhoods         :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ family        : chr "gaussian"
##   .. .. ..$ formula       :Class 'formula'  language speed ~ .
##   .. .. .. .. ..- attr(*, ".Environment")=<environment: 0x59ebcf822620> 
##   .. .. ..$ response_data :List of 4
##   .. .. .. ..$ BRU_response: num [1:14534] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ BRU_E       : num 1
##   .. .. .. ..$ BRU_Ntrials : num 1
##   .. .. .. ..$ BRU_scale   : num 1
##   .. .. ..$ data          :List of 8
##   .. .. .. ..$ speed            : num [1:14534] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ SpeedLimit       : num [1:14534] -0.101 -0.617 -0.617 -0.617 -0.927 ...
##   .. .. .. ..$ .coord_x         : num [1:14534] -122 -122 -122 -122 -122 ...
##   .. .. .. ..$ .coord_y         : num [1:14534] 37.8 37.8 37.8 37.8 37.8 ...
##   .. .. .. ..$ .edge_number     : num [1:14534] 1 4 6 6 9 14 14 14 18 20 ...
##   .. .. .. ..$ .distance_on_edge: num [1:14534] 0.437 0.144 0.252 0.658 0.601 ...
##   .. .. .. ..$ .group           : chr [1:14534] "1" "1" "1" "1" ...
##   .. .. .. ..$ loc              : num [1:14534, 1:2] 1 4 6 6 9 14 14 14 18 20 ...
##   .. .. .. ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##   .. .. ..$ E             : num 1
##   .. .. ..$ Ntrials       : num 1
##   .. .. ..$ weights       : num 1
##   .. .. ..$ scale         : num 1
##   .. .. ..$ samplers      : NULL
##   .. .. ..$ linear        : logi TRUE
##   .. .. ..$ expr          : NULL
##   .. .. ..$ response      : chr "BRU_response"
##   .. .. ..$ inla.family   : chr "gaussian"
##   .. .. ..$ domain        : NULL
##   .. .. ..$ used          :List of 2
##   .. .. .. ..$ effect: chr [1:2] "Intercept" "field"
##   .. .. .. ..$ latent: chr(0) 
##   .. .. .. ..- attr(*, "class")= chr "bru_used"
##   .. .. ..$ allow_combine : logi TRUE
##   .. .. ..$ control.family: NULL
##   .. .. ..- attr(*, "class")= chr [1:2] "bru_like" "list"
##   .. ..- attr(*, "class")= chr [1:2] "bru_like_list" "list"
##   ..$ options        :List of 14
##   .. ..$ bru_verbose      : num 0
##   .. ..$ bru_verbose_store: num Inf
##   .. ..$ bru_max_iter     : num 1
##   .. ..$ bru_run          : logi TRUE
##   .. ..$ bru_int_args     :List of 3
##   .. .. ..$ method: chr "stable"
##   .. .. ..$ nsub1 : num 30
##   .. .. ..$ nsub2 : num 9
##   .. ..$ bru_method       :List of 6
##   .. .. ..$ taylor         : chr "pandemic"
##   .. .. ..$ search         : chr "all"
##   .. .. ..$ factor         : num 1.62
##   .. .. ..$ rel_tol        : num 0.1
##   .. .. ..$ max_step       : num 2
##   .. .. ..$ line_opt_method: chr "onestep"
##   .. ..$ bru_compress_cp  : logi TRUE
##   .. ..$ bru_debug        : logi FALSE
##   .. ..$ E                : num 1
##   .. ..$ Ntrials          : num 1
##   .. ..$ control.compute  :List of 3
##   .. .. ..$ config: logi TRUE
##   .. .. ..$ dic   : logi TRUE
##   .. .. ..$ waic  : logi TRUE
##   .. ..$ control.inla     :List of 1
##   .. .. ..$ int.strategy: chr "auto"
##   .. ..$ control.fixed    :List of 1
##   .. .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ verbose          : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "bru_options" "list"
##   ..$ inlabru_version: Named chr "2.10.1.9004"
##   .. ..- attr(*, "names")= chr "version"
##   ..$ INLA_version   : Named chr "24.04.22"
##   .. ..- attr(*, "names")= chr "version"
##   ..- attr(*, "class")= chr [1:2] "bru_info" "list"
##  - attr(*, "class")= chr [1:3] "bru" "iinla" "inla"
nonstat.time.fin <- Sys.time()
print(nonstat.time.fin - nonstat.time.ini)
## Time difference of 7.389022 mins
summary(rspde_fit_nonstat)
## inlabru version: 2.10.1.9004
## INLA version: 24.04.22
## Components:
## Intercept: main = linear(1), group = exchangeable(1L), replicate = iid(1L)
## field: main = cgeneric(loc), group = exchangeable(1L), replicate = iid(data_rspde_bru_nonstat[["repl"]])
## Likelihoods:
##   Family: 'gaussian'
##     Data class: 'metric_graph_data', 'list'
##     Predictor: speed ~ .
## Time used:
##     Pre = 0.18, Running = 359, Post = 6.42, Total = 366 
## Fixed effects:
##             mean    sd 0.025quant 0.5quant 0.975quant   mode kld
## Intercept 20.575 0.865     18.881   20.575      22.27 20.575   0
## 
## Random effects:
##   Name     Model
##     field CGeneric
## 
## Model hyperparameters:
##                                           mean    sd 0.025quant 0.5quant
## Precision for the Gaussian observations  0.012 0.000      0.012    0.012
## Theta1 for field                         4.023 0.151      3.781    4.007
## Theta2 for field                         1.806 0.198      1.430    1.802
## Theta3 for field                        -0.320 0.056     -0.445   -0.315
## Theta4 for field                        -0.795 0.053     -0.899   -0.795
## Theta5 for field                        -0.831 0.203     -1.182   -0.844
##                                         0.975quant   mode
## Precision for the Gaussian observations      0.012  0.012
## Theta1 for field                             4.362  3.930
## Theta2 for field                             2.208  1.782
## Theta3 for field                            -0.226 -0.291
## Theta4 for field                            -0.690 -0.796
## Theta5 for field                            -0.391 -0.912
## 
## Deviance Information Criterion (DIC) ...............: 107824.19
## Deviance Information Criterion (DIC, saturated) ....: 16647.59
## Effective number of parameters .....................: 2479.40
## 
## Watanabe-Akaike information criterion (WAIC) ...: 108527.71
## Effective number of parameters .................: 2658.32
## 
## Marginal log-Likelihood:  -55665.33 
##  is computed 
## Posterior summaries for the linear predictor and the fitted values are computed
## (Posterior marginals needs also 'control.compute=list(return.marginals.predictor=TRUE)')
summary(rspde.result(rspde_fit_nonstat, "field", rspde_model_nonstat))
##                    mean        sd 0.025quant  0.5quant 0.975quant      mode
## Theta1.matern  4.022510 0.1507140   3.781260  4.006780   4.362010  3.930410
## Theta2.matern  1.805870 0.1977280   1.429560  1.801600   2.208240  1.782300
## Theta3.matern -0.319744 0.0563416  -0.444517 -0.315044  -0.226052 -0.291019
## Theta4.matern -0.795219 0.0530816  -0.899427 -0.795322  -0.690413 -0.795751
## nu             0.457428 0.0646221   0.352491  0.449324   0.603249  0.426230

1.3 Crossvalidation 1

#load(here("Models_output/distmatrixfixed.RData"))

points = data %>%
  as.data.frame() %>%
  st_as_sf(coords = c(".coord_x", ".coord_y"), crs = 4326) %>%
  mutate(., index = 1:nrow(.)) %>% 
  st_drop_geometry() %>%
  dplyr:::select(speed, .group, index) %>%
  mutate(.group = as.numeric(.group)) %>%
  group_by(.group) %>%
  mutate(indexingroup = seq_len(n())) %>%
  ungroup()

distance = seq(from = 0, to = 400, by = 20)/1000

#save(GROUPS, file = here("Models_output/GROUPS_for_window_case.RData"))
load(here("Models_output/GROUPS_for_window_case.RData"))
mse.stat <- mse.nonstat <- ls.stat <- ls.nonstat <- rep(0,length(distance))
# cross-validation for-loop
for (j in 1:length(distance)) {
  print(j)
  # cross-validation of the stationary model
  cv.stat <- inla.group.cv(rspde_fit_stat, groups = GROUPS[[j]])
  # cross-validation of the nonstationary model
  cv.nonstat <- inla.group.cv(rspde_fit_nonstat, groups = GROUPS[[j]])
  # obtain MSE and LS
  mse.stat[j] <- mean((cv.stat$mean - points$speed)^2)
  mse.nonstat[j] <- mean((cv.nonstat$mean - points$speed)^2)
  ls.stat[j] <- mean(log(cv.stat$cv))
  ls.nonstat[j] <- mean(log(cv.nonstat$cv))
}
## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] 6
## [1] 7
## [1] 8
## [1] 9
## [1] 10
## [1] 11
## [1] 12
## [1] 13
## [1] 14
## [1] 15
## [1] 16
## [1] 17
## [1] 18
## [1] 19
## [1] 20
## [1] 21

## plot results
par(mfrow = c(2,2), family = "Palatino")

# Plot MSE
plot(distance, mse.stat, main = "MSE", ylim = c(min(mse.nonstat, mse.stat), max(mse.nonstat, mse.stat)),
     type = "l", ylab = "MSE", xlab = "distance in m", col = "black")
lines(distance, mse.nonstat, col = "blue")
legend("bottomright", legend = c("Stationary", "Non-stationary"), col = c("black", "blue"), lty = 1)

# Plot log-score
plot(distance, -ls.stat, main = "log-score", ylim = c(min(-ls.nonstat, -ls.stat), max(-ls.nonstat, -ls.stat)),
     type = "l", ylab = "log-score", xlab = "distance in m", col = "black")
lines(distance, -ls.nonstat, col = "blue")
legend("bottomright", legend = c("Stationary", "Non-stationary"), col = c("black", "blue"), lty = 1)

save.image(here(paste0("Models_output/", rmarkdown::metadata$title, ".RData")))